Inserir número determinado de linhas numa planilha Excel
Fechado
eduo2018
Posts1Data de inscriçãoquinta 21 de fevereiro de 2019StatusMembroÚltima visita21 de fevereiro de 2019
-
Atualizado em 22 fev 2019 às 03:44
Perfil bloqueado -
21 fev 2019 às 20:10
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
Veja também:
Como inserir um numero especifico de linhas no excel