Excel: пример макроса для вставки нескольких строк

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

Вставить несколько строк в лист Excel

Задача Excel

Приведенный ниже совет позволит вам вставить несколько строк между существующими строками в электронной таблице Excel. Этот макрос позволит вам вставить определенное количество пустых строк в вашу электронную таблицу и может быть изменен в зависимости от ваших потребностей.

Перед макросом:

 Title1
Заголовок 2
TITLE3
TITLE4 

После макроса:

Title1
Заголовок 2
TITLE3
TITLE4 

Образец макроса

Вот код макроса, необходимый для выполнения вышеуказанной задачи:

 Суб тест ()
Dim J As Long, R As Range
j = InputBox («введите количество строк для вставки»)
Установите r = Range ("A2")
Делать
Range (r.Offset (1, 0), r.Offset (j, 0)).
Set r = Cells (r.Row + j + 1, 1)
MsgBox r.Address
Если r.Offset (1, 0) = "", то Exit Do
петля
End Sub