Вставка 'n' пустых строк с помощью макроса

Question

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

cell a1 = n
if(n>1, insert 'n' rows in row 10, insert '0' rows)
if(n>1, insert 'n' rows in row 20. insert '0' rows)
etc.

Возможно, существует макрос или функция, которая уже существует, но я не уверен. Если макроса нет в наличии, я хотел бы знать, как его создать.

Спасибо

Answer 1

Примерно так будет работать

Sub test()
Dim n As Integer
n = Cells(1, 1)
    If n >= 1 Then
        Rows("10:" & 10 + n).Insert shift:=xlDown
        Rows("20:" & 20 + n).Insert shift:=xlDown
    End If
End Sub

Вы также можете сделать это так -

Sub test()
Dim n As Integer
n = Cells(1, 1)
    If n >= 1 Then
        For i = 1 To n
        Rows(10).Insert shift:=xlDown
        Rows(20).Insert shift:=xlDown
        Next
    End If
End Sub