Добавление строк по заданному в ячейке кол-ву

Добавление строк по заданному в ячейке кол-ву, Макрос добавления строк по значению в ячейке.

Пользователь

Сообщений: 2 Регистрация: 11.06.2015

14.05.2018 10:24:57

Добрый день!

Коллеги, прошу небольшой помощи. Готовили небольшой макрос по автоматизации некоторых процессов ручной работы.
Столкнулись с потребностью добавлять заданное в ячейке число строк на другом листе.

К примеру лист1 значение в ячейке А1 = 20
На листе2 всегда над А2 сверху надо добавить 20 строк.

Как бы через "запись макроса" получаем код:

Код
Sheets("Sheet2").Select Rows("2:21").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Но как корректно написать код, что б добавлялось конкретное кол-во строк по значению в А1 (которое может быть разным).

Заранее благодарен! :oops:

Kuzmich

Пользователь

Сообщений: 8050 Регистрация: 21.12.2012

14.05.2018 10:36:45

Цитата
добавлялось конкретное кол-во строк по значению в А1

При активном Лист1 запустить

Код
Sub iInsertRows() With Worksheets("Лист2") .Rows(2).Resize(Range("A1")).Insert End With End Sub

duhaste Пользователь Сообщений: 2 Регистрация: 11.06.2015	#3 14.05.2018 10:48:24 Работает, спасибо!