Перейти к основному содержанию

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

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

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

Скопируйте и вставьте диапазон столбцов или строк в обратном порядке с кодом VBA

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


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

Скопируйте и вставьте список столбцов в обратном порядке по вертикали

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

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

=OFFSET($A$15,-(ROW(A1)-1),0)

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

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


Скопируйте и вставьте список строк в обратном порядке по горизонтали

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

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

=OFFSET($A$1,,COUNTA(1:1)-COLUMN(A1),)

Внимание: В приведенной выше формуле 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 for Excel, С его Отразить вертикальный диапазон и Отразить горизонтальный диапазон функции, вы можете изменить диапазон ячеек по вертикали и горизонтали одним щелчком мыши.

Советы:Чтобы применить это Отразить вертикальный диапазон и Отразить горизонтальный диапазон функции, во-первых, вы должны скачать Kutools for Excel, а затем быстро и легко примените эту функцию.

После установки Kutools for Excel, пожалуйста, сделайте так:

Скопируйте и вставьте диапазон ячеек в обратном порядке по горизонтали

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

2. А потом сразу перевернули диапазон значений ячеек по вертикали, см. Скриншоты:


Скопируйте и вставьте диапазон ячеек в обратном порядке по горизонтали

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

2. И затем все значения ячеек в выделении были немедленно перевернуты по горизонтали, см. Скриншоты:

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


Более относительные статьи для копирования и вставки:

  • Копировать и вставлять объединенные ячейки в отдельные ячейки в Excel
  • Обычно, когда вы копируете объединенные ячейки и вставляете их в другие ячейки, объединенные ячейки будут вставлены напрямую. Но вы хотите вставить эти объединенные ячейки в отдельные ячейки, как показано на следующем снимке экрана, чтобы вы могли обрабатывать данные по мере необходимости. В этой статье я расскажу о том, как копировать и вставлять объединенные ячейки в отдельные ячейки.
  • Скопируйте столбец и вставьте только уникальные записи в Excel
  • Для столбца с большим количеством дубликатов вам может потребоваться получить копию этого списка только с уникальными значениями. Как вы можете этого добиться? В этой статье мы предлагаем два метода для вставки только уникальных записей из списка столбцов в Excel.
  • Копировать данные с защищенного листа
  • Предположим, вы получили файл Excel от другого человека, рабочие листы которого защищены пользователем, теперь вы хотите скопировать и вставить необработанные данные в другую новую книгу. Но данные на защищенном листе не могут быть выбраны и скопированы из-за того, что пользователь снял флажки «Выбрать заблокированные ячейки» и «Выбрать разблокированные ячейки» при защите рабочего листа.
  • Копирование данных на другой лист с помощью расширенного фильтра в Excel
  • Обычно мы можем быстро применить функцию расширенного фильтра для извлечения данных из необработанных данных на том же листе. Но иногда, когда вы пытаетесь скопировать отфильтрованный результат на другой рабочий лист, вы получаете следующее предупреждающее сообщение. В таком случае, как бы вы могли справиться с этой задачей в Excel?

  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Разделить содержимое ячеек; Объедините повторяющиеся строки и сумму / среднее значение... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Избранные и быстро вставляйте формулы, Диапазоны, диаграммы и изображения; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Группировка сводной таблицы по номер недели, день недели и другое ... Показать разблокированные, заблокированные ячейки разными цветами; Выделите ячейки, у которых есть формула / имя...
вкладка kte 201905
  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Comments (3)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
OFFSET($A$15,-(ROW(A1)-1),0) and OFFSET($A$1,,COUNTA(1:1)-COLUMN(A1),) do not work when the data is not located in the first row or column.
these functions seem to work better:

Mirror row:
suppose the data is located in G11:K11
OFFSET($G$11,,COUNTA(11:11)-COUNTA($G$11:G11),) ........ OFFSET($G$11,,COUNTA(11:11)-COUNTA($G$11:K11),)

Mirror column:
suppose the data is located in E22:E26
OFFSET($E$22,ROW($E$26)-ROW(E22),0) ........ OFFSET($E$22,ROW($E$26)-ROW(E26),0)
Rated 5 out of 5
This comment was minimized by the moderator on the site
Hello Nasrin,

How are you. I tried your formulas and they work perfectly. Thanks for your share. We will take your advice. Have a great day.

Sincerely,
Mandy
This comment was minimized by the moderator on the site
Me funcionó la opción del código VBA. Muchas gracias!!!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations