Вставка пустой строки или пустого столбца в указанное место на рабочем листе из кода VBA Excel, чтобы расширить заполненную таблицу изнутри или снаружи.
Вставка пустой строки или пустого столбца используется для добавления пропущенной или новой информации внутри заполненного диапазона (таблицы) или для расширения таблицы по строкам или столбцам с сохранением форматирования.
Вставка пустой строки
Вставка пустой строки в VBA Excel осуществляется с помощью метода Range.Insert. Указанная строка сдвигается вниз, на ее место вставляется пустая строка, а форматы, по умолчанию, копируются в новую строку из строки выше.
Вставка одной пустой строки над 10 строкой:
|
1 2 |
Rows(10).Insert Range("A10").EntireRow.Insert |
Вставка семи пустых строк над 5 строкой:
|
1 2 |
Rows("5:11").Insert Range("A5:A11").EntireRow.Insert |
Добавление десяти пустых строк над активной ячейкой с помощью цикла:
|
1 2 3 4 5 6 |
Sub Test() Dim i As Long For i = 1 To 10 ActiveCell.EntireRow.Insert Next End Sub |
Вставка пустого столбца
Вставка пустого столбца в VBA Excel, как и пустой строки, осуществляется с помощью метода Range.Insert. Указанный столбец сдвигается вправо, на его место вставляется пустой столбец, а форматы, по умолчанию, копируются в новый столбец из столбца слева.
Вставка одного пустого столбца слева от 5 столбца:
|
1 2 3 |
Columns(5).Insert Columns("E").Insert Range("E6").EntireColumn.Insert |
Вставка пяти пустых столбцов слева от 4 столбца:
|
1 2 |
Columns("D:H").Insert Range("D6:H20").EntireColumn.Insert |
Обратите внимание, что запись вида Columns("5:11").Insert не работает.
Добавление шести пустых столбцов слева от активной ячейки с помощью цикла:
|
1 2 3 4 5 6 |
Sub Test1() Dim i As Long For i = 1 To 6 ActiveCell.EntireColumn.Insert Next End Sub |