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

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

Способ 1: вставка строк в определенный диапазон

 SubInsertMultipleRows ()
Worksheets(" Sheet1 ").Range(" 5:7 ").EntireRow.Insert
End Sub

Этот конкретный макрос вставит три пустые строки в диапазоне от 5 до 7 листа с именем Лист1 и переместит вниз все существующие строки.

Способ 2. Вставка строк на основе активной ячейки.

 SubInsertMultipleRows ()
ActiveCell.EntireRow.Resize(3).Insert Shift:=xlDown
End Sub

Этот конкретный макрос вставит три пустые строки, начиная с ячейки, которую вы в данный момент выбрали на листе, и переместит вниз все существующие строки.

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

Пример 1. Вставка строк в определенный диапазон

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

 SubInsertMultipleRows ()
Worksheets(" Sheet1 ").Range(" 5:7 ").EntireRow.Insert
End Sub

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

Обратите внимание, что на лист вставлены три пустые строки в позициях с 5 по 7 .

Значения, существовавшие ранее в этих строках, просто занижены.

Пример 2. Вставка строк на основе активной ячейки

Допустим, в моей таблице в данный момент выбрана ячейка A3 .

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

 SubInsertMultipleRows ()
ActiveCell.EntireRow.Resize(3).Insert Shift:=xlDown
End Sub

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

Обратите внимание, что в рабочий лист вставлены три пустые строки, начиная со строки 3.

Значения, существовавшие ранее в этих строках, были уменьшены.

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

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

VBA: как найти последнюю использованную строку
VBA: как подсчитать количество строк в диапазоне
VBA: как подсчитать количество используемых столбцов