Как изменить высоту строки в vba (с примерами)

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

Способ 1: изменить высоту строки

 SubChangeRowHeight ()
Rows(3).RowHeight = 40
End Sub

Этот конкретный макрос изменяет высоту третьей строки на 40 .

Примечание . Высота строки по умолчанию в Excel составляет 14,4 .

Способ 2: изменить высоту нескольких строк

 SubChangeRowHeight ()
Rows(" 1:5 ").RowHeight = 40
End Sub

Этот конкретный макрос изменяет высоту каждой строки с одной до пяти и до 40 .

Способ 3. Автоматическая регулировка высоты нескольких строк.

 SubChangeRowHeight ()
Rows(" 1:8 ").AutoFit
End Sub

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

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

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

Пример 1. Изменение высоты строки

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

 SubChangeRowHeight ()
Rows(3).RowHeight = 40
End Sub

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

Обратите внимание, что только высота третьей строки была увеличена до 40, а высота всех остальных строк осталась прежней.

Пример 2. Изменение высоты нескольких строк

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

 SubChangeRowHeight ()
Rows(" 1:5 ").RowHeight = 40 
End Sub

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

Обратите внимание, что высота каждой из первых пяти строк изменилась на 40, а высота всех остальных строк осталась прежней.

Пример 3. Автоматическая регулировка высоты нескольких строк.

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

 SubChangeRowHeight ()
Rows(" 1:8 ").AutoFit
End Sub

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

Обратите внимание, что высота каждой строки автоматически регулируется так, чтобы она была настолько высокой, насколько это необходимо для отображения самого высокого текста в каждой строке:

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

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

VBA: как найти последнюю использованную строку
VBA: Как вставить строку с форматированием
VBA: как подсчитать количество строк в диапазоне