Как перевернуть значение в Excel: от зеркального текста до реверса строк

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

В этой статье мы разберём все методы — от ручных до программных, — которые работают в Excel 2010–2026 и Office 365. Вы узнаете, как:

• 🔄 Развернуть отдельные слова или целые предложения
• 📝 Использовать формулы без макросов (включая TEXTJOIN и MID)
• 🤖 Автоматизировать процесс с помощью VBA для тысяч строк
• 🎨 Создать зеркальный текст для дизайна (да, это тоже возможно!)

Неважно, нужен ли вам реверс для анализа данных или творческого проекта — здесь вы найдёте решение под свою задачу. Начнём с самого простого!

1. Переворачиваем текст вручную (без формул)

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

Способ 1: Копирование в Блокнот

1. Скопируйте текст из Excel (Ctrl+C).
2. Вставьте его в Блокнот или любой текстовый редактор.
3. Вручную перепечатайте текст задом наперёд (или используйте онлайн-инструменты типа TextFixer).
4. Вставьте результат обратно в Excel.

Способ 2: Формат ячеек (для зеркального отображения)

Если нужна не столько перевёрнутая последовательность символов, сколько зеркальное отражение (например, для печати на прозрачной плёнке), сделайте так:

1. Выделите ячейку с текстом.
2. Нажмите Ctrl+1 (или правой кнопкой → Формат ячеек).
3. Перейдите на вкладку Выравнивание.
4. В разделе Ориентация установите угол 180° или 90° (в зависимости от нужного эффекта).

⚠️ Внимание: Этот метод визуально «переворачивает» текст, но не меняет его фактическое содержимое. При копировании ячейки оригинальный текст останется без изменений.

2. Формулы для реверса текста (без VBA)

Для автоматизации процесса подойдут формулы. Рассмотрим три варианта — от простого к сложному.

2.1. Переворот одного слова (функция СТРОЧН + ПСТР)

Если текст состоит из одного слова (без пробелов), используйте эту комбинацию:

=СЦЕПИТЬ(ПСТР(A1;ДЛСТР(A1);1);ПСТР(A1;ДЛСТР(A1)-1;1);...)

Но писать её вручную для длинных слов неудобно. Вместо этого применяйте массивную формулу:

=СЦЕПИТЬ(ПСТР(A1;ДЛСТР(A1)-СТРОКА(ДВССЫЛ("1:"&ДЛСТР(A1)))+1;1))

Введите её как формулу массива (Ctrl+Shift+Enter в старых версиях Excel).

2.2. Реверс предложения (переворот порядка слов)

Чтобы поменять порядок слов в предложении (например, «привет мир» → «мир привет»), используйте:

=ТЕКСТСОЕДИНИТЬ(" ";ИСТИНА;ТРАНСП(РАЗБИТЬПОСИМВОЛАМ(A1;" ")))

Эта формула:

1. Разбивает текст по пробелам (РАЗБИТЬПОСИМВОЛАМ).
2. Транспонирует массив (ТРАНСП).
3. Собирает слова в обратном порядке (ТЕКСТСОЕДИНИТЬ).

⚠️ Внимание: В Excel 2016 и старше вместо ТЕКСТСОЕДИНИТЬ используйте СЦЕПИТЬ с разделителем. В Excel 2019+ формула работает без изменений.

2.3. Универсальная формула для любого текста

Для полного реверса (включая буквы и пробелы) подходит этот вариант:

=СЦЕПИТЬ(ПСТР($A1;ДЛСТР($A1)-СТРОКА(ДВССЫЛ("1:"&ДЛСТР($A1)))+1;1))

Пример работы:

Проверьте версию Excel (некоторые функции недоступны в 2010–2016)

Убедитесь, что текст не содержит лишних пробелов

Для массивов используйте Ctrl+Shift+Enter (в старых версиях)

Сохраните резервную копию данных-->

3. Макросы VBA для автоматического реверса

Если вам нужно обработать тысячи строк, формулы будут тормозить. На помощь придёт VBA. Вот два готовых макроса:

3.1. Простой макрос для реверса текста в выбранных ячейках

Этот код развернёт текст в каждой ячейке выделенного диапазона:

Sub ReverseText()
Dim rng As Range, cell As Range
Dim str As String, revStr As String
Dim i As Integer

Set rng = Selection
For Each cell In rng
str = cell.Value
revStr = ""
For i = Len(str) To 1 Step -1
revStr = revStr & Mid(str, i, 1)
Next i
cell.Value = revStr
Next cell
End Sub

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

1. Выделите ячейки с текстом.
2. Нажмите Alt+F11, чтобы открыть редактор VBA.
3. Вставьте код в новый модуль (Insert → Module).
4. Запустите макрос (F5).

3.2. Макрос для реверса порядка слов

Этот вариант меняет порядок слов в предложении (как в примере с «привет мир»):

Sub ReverseWords()
Dim rng As Range, cell As Range
Dim str As String, arr() As String
Dim i As Integer, j As Integer

Set rng = Selection
For Each cell In rng
str = cell.Value
arr = Split(str, " ")
str = ""
For i = UBound(arr) To LBound(arr) Step -1
str = str & arr(i) & " "
Next i
cell.Value = Trim(str)
Next cell
End Sub

⚠️ Внимание: Перед запуском макросов сохраните книгу в формате .xlsm (с поддержкой макросов). В противном случае код не сохранится.

4. Переворот текста с помощью Power Query

Power Query — мощный инструмент для трансформации данных, доступный в Excel 2016+. Он позволяет реверсировать текст без формул и макросов.

Алгоритм действий:

1. Выделите диапазон с текстом и нажмите Данные → Из таблицы/диапазона (или Data → From Table/Range).
2. В открывшемся редакторе Power Query выберите столбец с текстом.
3. Перейдите на вкладку Добавить столбец (Add Column) → Пользовательский столбец (Custom Column).
4. Введите формулу:

   = Text.Reverse([Column1])

   (замените Column1 на имя вашего столбца).

5. Нажмите ОК и Закрыть и загрузить (Close & Load).

Power Query сохраняет оригинальные данные и создаёт новый столбец с перевёрнутым текстом — это безопаснее, чем редактировать исходные ячейки.

5. Зеркальный текст: как сделать отражение по вертикали/горизонтали

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

5.1. Горизонтальное отражение (слева направо)

Чтобы текст читался как в зеркале:

1. Выделите ячейку.
2. Нажмите Ctrl+1 → вкладка Выравнивание.
3. В разделе Ориентация выберите угол 90° (для отражения вправо) или 270° (влево).
4. Установите флажок переносить по словам.

5.2. Вертикальный переворот (вверх ногами)

Для полного переворота текста:

1. Выделите ячейку.
2. В том же окне Формат ячеек установите угол 180°.
3. При необходимости измените шрифт на Wingdings или Symbol для декоративного эффекта.

Пример применения:

6. Распространённые ошибки и как их избежать

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

• 🔹 Формулы возвращают #ЗНАЧ!
  

  Проверьте, нет ли в тексте пустых ячеек или ошибок. Используйте ЕСЛИОШИБКА для обработки:

  =ЕСЛИОШИБКА(СЦЕПИТЬ(...);"")

• 🔹 Макросы не работают
  

  Убедитесь, что макросы разрешены (Файл → Параметры → Центр управления безопасностью → Параметры центра... → Включить все макросы).

• 🔹 Power Query не находит функцию Text.Reverse
  

  Обновите Excel до последней версии или используйте альтернативу:

  = Text.Combine(List.Reverse(Text.Split([Column1], "")), "")

• 🔹 Зеркальный текст печатается неправильно
  

  Проверьте настройки масштабирования в параметрах печати — иногда принтер игнорирует поворот текста.

Совет для больших файлов: Если Excel «подвисает» при обработке тысяч строк, разбейте задачу на части или используйте Power Query — он оптимизирован для работы с большими данными.

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

=JOIN("",ARRAYFORMULA(MID(A1;LEN(A1)-ROW(INDIRECT("1:"&LEN(A1)))+1;1)))

=JOIN(" ";ARRAYFORMULA(SORT(SPLIT(A1;" ");1;FALSE)))

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
For Each cell In Target
If cell.Column = 1 Then ' Измените 1 на номер вашего столбца
cell.Value = StrReverse(cell.Value)
End If
Next cell
End Sub