Inserir número determinado de linhas numa planilha Excel

Posts
1
Data de inscrição
quinta 21 de fevereiro de 2019
Status
Membro
Última visita
21 de fevereiro de 2019
-
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
Ver mais 

1 resposta

Melhor resposta
Posts
35863
Data de inscrição
quinta 12 de março de 2009
Status
Especialista comprovado
Última visita
sábado 20 de abril de 2019
67746
1
Obrigado
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
Ana Spadari

Community Manager - CCM Brasil

Comentar a resposta do Ana Spadari