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

Если текст в ячейке Microsoft Excel не помещается по ширине и выходит за границы, а ручной перенос строк (Alt+Enter) не подходит — проблема решается включением автоматического переноса. Этот параметр скрыт в настройках формата ячейки и работает даже для динамически изменяемого текста (например, при импорте данных). В 90% случаев достаточно одного клика в контекстном меню, но есть нюансы с объединёнными ячейками, защищёнными листами и формулами.

Автоперенос не просто обрезает текст — он оптимизирует высоту строки под содержимое, сохраняя читаемость. Однако при экспорте в CSV или копировании в другие программы переносы могут пропадать. В этой статье разберём все способы включения функции, включая горячие клавиши, VBA-макросы для пакетной обработки и обход ограничений (например, когда кнопка "Перенос текста" неактивна).

1. Быстрый перенос через контекстное меню

Самый простой способ — использовать правую кнопку мыши. Кликните по ячейке (или выделите диапазон), затем в контекстном меню выберите «Формат ячеек» (или нажмите Ctrl+1). В открывшемся окне перейдите на вкладку «Выравнивание» и поставьте галочку напротив «Переносить по словам».

Alt → H → W → A

Ctrl+1 → Alt+W

Sub AutoWrapText()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Cells.WrapText = True
Next ws
End Sub

Sub WrapByLength()
Dim rng As Range, cell As Range
Set rng = Selection
For Each cell In rng
If Len(cell.Value) > 50 Then
cell.Value = Replace(cell.Value, " ", vbCrLf, Len(cell.Value) \ 50)
End If
Next cell
End Sub

=ПОДСТАВИТЬ(A1;" ";СИМВОЛ(10);(ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;" ";)))\(ДЛСТР(A1)/30))

Sub DisableWrapText()
Cells.WrapText = False
End Sub