inserir número determinado de linhas numa planilha Excel Fechado

Question

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

ninha25 · Answer

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

Inserir número determinado de linhas numa planilha Excel

1 Respostas

Conversas semelhantes

Assine nossa newsletter!