Inserir número determinado de linhas numa planilha Excel

Denunciar
Posts
1
Data de inscrição
quinta 21 de fevereiro de 2019
Status
Membro
Última visita
21 de fevereiro de 2019
-
Ana Spadari
Posts
39422
Data de inscrição
quinta 12 de março de 2009
Status
Administrador
Última visita
27 de janeiro de 2020
-
Oi

Estou usando este VBA (abaixo), porém insere o número de linhas para a base toda, minha necessidade é inserir o determinado número de linhas abaixo da linha selecionada.

Sub test()
Dim j As Long, r As Range
j = InputBox("digite o número de linhas a ser inserido")

Set r = Range("A2")
Do
Range(r.Offset(1, 0), r.Offset(j, 0)).EntireRow.Insert
Set r = Cells(r.Row + j + 1, 1)
'MsgBox r.Address(o apóstrofo no início desta linha torna esta linha inoperável)
If r.Offset(1, 0) = "" Then Exit Do
Loop

End Sub

1 resposta

Posts
39422
Data de inscrição
quinta 12 de março de 2009
Status
Administrador
Última visita
27 de janeiro de 2020
113.123
Oi

Selecione as linhas que deseja inserir e selecione o mesmo número de linhas que quer inserir.

Para inserir 5 novas linhas, selecione 5 linhas e depois clique direito nas células selecionadas > Inserir.

Boa sorte