Как переносить текст с помощью vba (с примером)

Вы можете использовать свойство WrapText в VBA для переноса текста в определенные ячейки на листе Excel.

Вот три распространенных способа использования этого свойства на практике:

Способ 1: перенесите текст определенной ячейки

 Sub UseWrapText()
Range(" B2 ").WrapText = True
End Sub

Метод 2: перенос текста ячейки в определенный диапазон

 SubUseWrapText ()
Range(" B2:B11 ").WrapText = True
End Sub

Способ 3: оберните текст всех ячеек на листе

 Sub UseWrapText()
Cells.WrapText = True
End Sub

В следующих примерах показано, как использовать каждый метод на практике со следующим набором данных в Excel:

Пойдем!

Пример 1. Перенос текста определенной ячейки с помощью VBA

Мы можем создать следующий макрос для переноса текста только в ячейку B2 :

 Sub UseWrapText()
Range(" B2 ").WrapText = True
End Sub

Когда мы запускаем этот макрос, мы можем щелкнуть ячейку B2 и увидеть, что перенос текста включен в группе «Выравнивание» на вкладке « Главная» на верхней ленте:

Однако нам нужно сократить длину столбца B и увеличить высоту строки 2, чтобы действительно увидеть переносимый текст:

Теперь мы можем легко увидеть, что текст в ячейке B2 переносится, а текст во всех других ячейках столбца B не переносится.

Пример 2. Перенос текста ячейки в определенный диапазон с использованием VBA

Мы можем создать следующий макрос для переноса текста в каждую ячейку в диапазоне B2:B11 :

 Sub UseWrapText()
Range(" B2:B11 ").WrapText = True
End Sub

Когда мы запускаем этот макрос, мы получаем следующий вывод:

Мы видим, что каждая ячейка в диапазоне B2:B11 теперь содержит завернутый текст.

Пример 3. Перенос текста всех ячеек листа с помощью VBA

Мы можем создать следующий макрос для переноса текста в каждую ячейку листа:

 Sub UseWrapText()
Cells.WrapText = True
End Sub

Когда мы запускаем этот макрос, мы получаем следующий вывод:

Мы видим, что каждая ячейка на листе теперь содержит завернутый текст.

Примечание . Полную документацию по свойству VBA WrapText можно найти здесь .

Дополнительные ресурсы

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

VBA: как изменить цвет шрифта
VBA: как заменить символы в строке
VBA: Как вставить строку с форматированием