Inserindo 'n' linhas em branco usando uma macro

Question

Atualmente, estou tentando desenvolver uma planilha do Excel para facilitar a formatação. O que eu gostaria de fazer é criar uma macro para inserir linhas em branco em vários locais sem afetar as linhas subsequentes. Eu estou familiarizado com um pouco de codificação. Meu código psuedo é o seguinte:

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.

Pode haver uma macro ou função que já existe, mas não tenho certeza. Se não houver uma macro disponível, gostaria de saber como criar uma.

Obrigado

    

Answer 1

Algo como isso funcionaria

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

Você também pode fazer assim -

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