Реверс в Excel: как перевернуть строку, столбец или таблицу за 2 минуты

Если вам нужно перевернуть порядок ячеек в строке, столбце или целой таблице Excel — не спешите вручную переписывать данные. В 90% случаев задача решается стандартными инструментами программы без макросов. Например, строку А1:E1 с значениями «1, 2, 3, 4, 5» можно развернуть до «5, 4, 3, 2, 1» за 3 клика через специальную вставку. А для автоматического реверса при изменении исходных данных подойдут формулы ИНДЕКС или ПОИСКПОЗ.

Ошибка многих пользователей — попытка использовать сортировку по убыванию (Данные → Сортировка). Этот метод работает только для числовых данных и ломает исходный порядок. Мы покажем 5 проверенных способов, включая универсальный метод для текста, чисел и дат, который сохраняет форматирование ячеек. Все инструкции актуальны для Excel 2010–2023 и Office 365 (включая веб-версию).

1. Быстрый реверс через специальную вставку (без формул)

Самый простой способ — использовать транспонирование с разворотом. Он подходит для одноразового реверса строк или столбцов длиной до 1000 ячеек. Алгоритм:

1. Выделите исходные данные (например, строку A1:D1 с значениями «Яблоко, Груша, Банан, Апельсин»).
2. Скопируйте их (Ctrl+C).
3. Кликните правой кнопкой по пустой ячейке, где должен появиться результат (например, A3).
4. В контекстном меню выберите Специальная вставка → Транспонировать.
5. Теперь выделите транспонированные данные, снова скопируйте их (Ctrl+C).
6. Кликните правой кнопкой по конечной ячейке (например, E1) и выберите Специальная вставка → Значения → ОК.
7. Удалите вспомогательный транспонированный столбец.

Результат: строка «Яблоко, Груша, Банан, Апельсин» превратится в «Апельсин, Банан, Груша, Яблоко». Метод работает и для столбцов — просто транспонируйте их дважды.

Исходные данные не содержат объединённых ячеек|

В буфере обмена нет других данных (чистый Ctrl+C)|

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

Форматирование исходных ячеек не критично (оно не сохранится)

-->

⚠️ Внимание: Этот способ не сохраняет форматирование (цвет текста, границы, условное форматирование). Для сохранения оформления используйте метод с формулами (раздел 3).

2. Реверс с помощью функции СЧЁТЗ и ИНДЕКС (динамический)

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

=ИНДЕКС($A$1:$D$1; СЧЁТЗ($A$1:$D$1)+1-CТРОКА(A1))

Как это работает:

• 🔹 СЧЁТЗ($A$1:$D$1) считает количество непустых ячеек в диапазоне (в нашем случае 4).
• 🔹 СТРОКА(A1) возвращает номер строки (здесь 1).
• 🔹 Формула СЧЁТЗ+1-СТРОКА генерирует последовательность 4, 3, 2, 1.
• 🔹 ИНДЕКС извлекает значение из исходного диапазона по сгенерированному номеру.

Чтобы развернуть весь диапазон:

1. Введите формулу в первую ячейку результата (например, A3).
2. Растяните её вправо (для строки) или вниз (для столбца) на количество ячеек, равное исходному диапазону.

3. Реверс с сохранением форматирования (через VBA)

Если нужно развернуть данные с сохранением цвета текста, границ или условного форматирования, используйте макрос. Этот метод подходит для разовых операций с большими диапазонами (1000+ ячеек).

Откройте редактор VBA (Alt+F11), вставьте новый модуль (Insert → Module) и добавьте код:

Sub ReverseRange()
Dim rng As Range, arr() As Variant, i As Long, j As Long
Set rng = Selection
ReDim arr(1 To rng.Columns.Count, 1 To rng.Rows.Count)

' Копируем данные и форматирование в массив
For i = 1 To rng.Columns.Count
For j = 1 To rng.Rows.Count
arr(i, j) = rng.Cells(j, i).Value
rng.Cells(j, i).Copy
rng.Cells(rng.Rows.Count - j + 1, rng.Columns.Count - i + 1).PasteSpecial xlPasteFormats
Next j
Next i

' Вставляем развёрнутые данные
For i = 1 To rng.Columns.Count
For j = 1 To rng.Rows.Count
rng.Cells(j, i).Value = arr(rng.Columns.Count - i + 1, rng.Rows.Count - j + 1)
Next j
Next i
Application.CutCopyMode = False
End Sub

Как использовать:

1. Выделите диапазон для реверса (например, A1:D5).
2. Запустите макрос (Alt+F8 → ReverseRange → Выполнить).

⚠️ Внимание: Макрос заменяет исходные данные. Сначала сделайте резервную копию таблицы (Ctrl+C на другой лист). В Excel Online VBA не работает — используйте десктопную версию.

Специальная вставка|

Формулы ИНДЕКС/СЧЁТЗ|

Макрос VBA|

Другие методы-->

4. Реверс таблицы целиком (строки + столбцы)

Чтобы развернуть всю таблицу (поменять местами первую и последнюю строки, первый и последний столбцы), комбинируйте транспонирование с индексацией. Например, для диапазона A1:C3:

=ИНДЕКС($A$1:$C$3; СЧЁТЗ($A$1:$A$3)+1-СТРОКА(A1); СЧЁТЗ($A$1:$C$1)+1-СТОЛБЕЦ(A1))

Введите формулу в A5 и растяните на диапазон A5:C7. Результат:

• 🔹 Первая строка исходной таблицы станет последней.
• 🔹 Первый столбец станет последним.
• 🔹 Ячейка A1 поменяется местами с C3, A2 — с C2 и т.д.

Для автоматизации создайте именованный диапазон:

1. Выделите исходную таблицу (например, A1:C3).
2. Перейдите в Формулы → Присвоить имя.
3. Введите имя (например, MyTable) и нажмите OK.
4. Теперь используйте формулу:

   =ИНДЕКС(MyTable; СЧЁТЗ(MyTable)+1-СТРОКА(A1); СЧЁТЗ(ИНДЕКС(MyTable;;;1))+1-СТОЛБЕЦ(A1))

5. Реверс с удалением пустых ячеек

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

=ЕСЛИОШИБКА(ИНДЕКС($A$1:$D$1; НАИБОЛЬШИЙ(ЕСЛИ($A$1:$D$1<>""; СТОЛБЕЦ($A$1:$D$1)-МИН(СТОЛБЕЦ($A$1:$D$1))+1); СТРОКА(A1))); "")

Эта формула:

• 🔹 Проверяет непустые ячейки в диапазоне $A$1:$D$1.
• 🔹 Присваивает им порядковые номера (1, 2, 3...).
• 🔹 Функция НАИБОЛЬШИЙ извлекает номера в обратном порядке.
• 🔹 ИНДЕКС возвращает значения по этим номерам.

Для Excel 2019 и старше формула вводится как массивная (Ctrl+Shift+Enter). В Office 365 достаточно нажать Enter.

6. Частые ошибки и как их избежать

Даже опытные пользователи сталкиваются с проблемами при реверсе данных. Вот типичные ошибки и решения:

Ещё одна распространённая проблема — реверс дат. Если в ячейках даты в формате «дд.мм.гггг», после разворота они могут отобразиться как числа (например, «44197» вместо «01.01.2021»). Чтобы исправить:

1. Выделите развёрнутые ячейки с датами.
2. Нажмите Ctrl+1 (формат ячеек).
3. Выберите категорию Дата и нужный формат.

FAQ: Ответы на частые вопросы

Sub ReverseSelected()
Dim cell As Range, arr() As Variant, i As Long
ReDim arr(1 To Selection.Areas.Count)
For Each cell In Selection
i = i + 1
arr(i) = cell.Value
Next cell
For i = 1 To Selection.Areas.Count
Selection.Areas(i).Value = arr(Selection.Areas.Count + 1 - i)
Next i
End Sub