Как копировать и вставлять строки или столбцы в обратном порядке в Excel?

Иногда бывает нужно скопировать и вставить список столбца или строки в обратном порядке — вертикально или горизонтально, как показано на снимке экрана ниже. Как быстро и легко выполнить эту задачу в Excel?

Копирование и вставка списка столбца или строки в обратном порядке с помощью формулы

Копирование и вставка диапазона столбцов или строк в обратном порядке с помощью кода VBA

Копирование и вставка диапазона столбцов или строк в обратном порядке с помощью удобной функции

---

Копирование и вставка списка столбца или строки в обратном порядке с помощью формулы

Копирование и вставка списка столбца в обратном порядке по вертикали

Если вы хотите перевернуть список ячеек столбца, используйте приведённую ниже формулу:

Введите или скопируйте следующую формулу в пустую ячейку, где вы хотите изменить порядок столбца на обратный:

Примечание: В приведённой выше формуле A1 — это первая ячейка в столбце, а A15 — последняя ячейка в столбце.

Затем перетащите маркер заполнения вниз по ячейкам, чтобы извлечь значения в обратном порядке, как показано на снимке экрана ниже:

---

Копирование и вставка списка строки в обратном порядке по горизонтали

Чтобы скопировать и вставить список строки в обратном порядке, используйте следующую формулу:

Введите или скопируйте эту формулу в пустую ячейку:

Примечание: В приведённой выше формуле A1 — это первая ячейка в строке, а 1:1 — номер строки, в которой находятся ваши данные. Если ваши данные расположены в строке 10, замените её на 10:10.

Затем перетащите маркер заполнения вправо по ячейкам, к которым нужно применить формулу, пока не будут извлечены все значения. В результате все значения развернутся по горизонтали — см. снимок экрана:

---

Копирование и вставка диапазона столбцов или строк в обратном порядке с помощью кода VBA

Если вам нужно скопировать и вставить диапазон столбцов или строк в обратном порядке, я предлагаю воспользоваться следующими кодами VBA для быстрого и лёгкого решения этой задачи. Выполните указанные ниже действия:

Копирование и вставка списка столбца в обратном порядке по вертикали

1. Сначала скопируйте и вставьте свои данные в новое место, затем нажмите клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic для приложений.

2. Нажмите Вставка > Модуль и вставьте следующий код в окно Модуля.

Код VBA: Копирование и вставка диапазона ячеек в обратном порядке по вертикали

Sub Flipvertically()
'updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim i As Integer, j As Integer, k As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Arr = WorkRng.Formula
For j = 1 To UBound(Arr, 2)
    k = UBound(Arr, 1)
    For i = 1 To UBound(Arr, 1) / 2
        xTemp = Arr(i, j)
        Arr(i, j) = Arr(k, j)
        Arr(k, j) = xTemp
        k = k - 1
    Next
Next
WorkRng.Formula = Arr
End Sub

3. Затем нажмите клавишу F5, чтобы запустить этот код. Появится диалоговое окно с запросом выбора диапазона данных, который вы хотите перевернуть по вертикали (см. снимок экрана):

4. После этого нажмите кнопку OK, и диапазон данных будет перевёрнут по вертикали, как показано на снимках экрана ниже:

---

Копирование и вставка диапазона ячеек в обратном порядке по горизонтали

Чтобы перевернуть Диапазон данных в горизонтальном порядке, используйте приведённый ниже код VBA:

Код VBA: Копирование и вставка диапазона ячеек в обратном порядке по горизонтали

Sub Fliphorizontally()
'updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim i As Integer, j As Integer, k As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Arr = WorkRng.Formula
For i = 1 To UBound(Arr, 1)
    k = UBound(Arr, 2)
    For j = 1 To UBound(Arr, 2) / 2
        xTemp = Arr(i, j)
        Arr(i, j) = Arr(i, k)
        Arr(i, k) = xTemp
        k = k - 1
    Next
Next
WorkRng.Formula = Arr
End Sub

После выполнения этого кода вы получите следующие результаты, как показано на снимках экрана:

---

Копирование и вставка диапазона столбцов или строк в обратном порядке с помощью удобной функции

Если вы не знакомы с приведёнными выше формулами и кодами VBA, рекомендуем воспользоваться простым инструментом — Kutools для Excel. С помощью его функций Повернуть диапазон по вертикали и Перевернуть диапазон горизонтально вы сможете перевернуть диапазон ячеек по вертикали или горизонтали всего одним щелчком мыши.

После установки Kutools для Excelвыполните следующие действия:

Копирование и вставка диапазона ячеек в обратном порядке по горизонтали

1. Выделите диапазон ячеек и нажмите Kutools > Диапазон > Повернуть диапазон по вертикали > Все (Повернуть только содержимое). См. снимок экрана:

2. После этого значения ячеек в выделенном диапазоне мгновенно перевернутся по вертикали — см. снимки экрана:

---

Копирование и вставка диапазона ячеек в обратном порядке по горизонтали

1. Выделите диапазон ячеек и нажмите Kutools > Диапазон > Перевернуть диапазон горизонтально > Все (Повернуть только содержимое), см. снимок экрана:

2. После этого все значения ячеек в выделенном диапазоне немедленно перевернутся по горизонтали — см. снимки экрана:

Нажмите, чтобы скачать Kutools для Excel и сразу начать бесплатную пробную версию!

---

Другие статьи по теме копирования и вставки: