Вставка новых строк — это самый простой способ добавить новые поля в область рабочего листа. Поскольку Excel вставляет строки, копируя форматирование предыдущей строки, обычно это более практично, чем перемещение нижних ячеек, чтобы освободить место для новых данных. Благодаря VBA мы можем вставлять строки динамически. В этом руководстве мы собираемся показать вам, как вставить определенное количество строк в Excel.
Подготовка
Сначала вам нужно открыть окно VBA (Visual Basic для приложений) и добавить модуль.
- Нажмите Alt + F11, чтобы открыть окно VBA
- В окне VBA нажмите Вставить на панели инструментов
- Выберите опцию Модуль
Если вы не знакомы с макросами и VBA, ознакомьтесь с нашим руководством по созданию макроса в Excel.
Логика макросов
Логика вставки строк управляется двумя элементами:
- Строка, над которой вы хотите вставить новые строки. Вы можете думать об этом как о привязочной строке.
- Количество строк.
Как только эти элементы будут установлены, макрос выберет количество строк, начиная с привязочной строки, и запустит метод Insert.
Диапазон (строки (AnchorRow), Строки (AnchorRow + RowCount — 1)).Вставить
Вы можете идентифицировать эти элементы в коде с заданными значениями, собирать эту информацию динамически, например, из активной ячейки или с помощью пользовательского ввода.
AnchorRow = 3 ‘Статический
AnchorRow = ActiveCell.Строка ‘Выбранная ячейка
AnchorRow = приложение.Поле ввода (подсказка:=»Пожалуйста, выберите ячейку», введите:=8).Строка «Пользовательский ввод»
Выберите ту, которая наилучшим образом соответствует вашему варианту использования. Теперь давайте посмотрим на блок кода.
Как вставить определенное количество строк
Следующий код требует, чтобы пользователь выделил ячейку в привязочной строке.
Вложенный элемент InsertRows1()
‘Определить переменные
Затемнить AnchorRow как целое число, RowCount как целое число
‘Установить переменные
AnchorRow = ActiveCell.Строка ‘Выбранная ячейка
RowCount = Application.Поле ввода (Подсказка:=»Пожалуйста, введите, сколько строк вы хотите вставить», введите:=1) ‘Пользовательский ввод
‘Вставить строки
Диапазон (строки (AnchorRow), Строки (AnchorRow + RowCount — 1)).Вставить
End Sub
Следующий и последний пример кода вставит определенное количество строк над ячейкой, запрошенной пользователем.
‘Этот макрос вставит статическое количество строк над ячейкой, запрашиваемой пользователем
Вложенный InsertRows2()
‘Определить переменные
Затемнить AnchorRow как целое число, RowCount как целое число
‘Установить переменные
AnchorRow = приложение.Поле ввода (Подсказка:=»Пожалуйста, выберите ячейку», введите:=8).Строка ‘Пользовательский ввод
Количество строк = 3 ‘Статическое
‘Вставить строки
Диапазон (строки (AnchorRow), Строки (AnchorRow + RowCount — 1)).Вставить
End Sub
