Como inserir várias linhas usando vba

Você pode usar os seguintes métodos para inserir várias linhas no Excel usando VBA:

Método 1: inserir linhas em um intervalo específico

 SubInsertMultipleRows ()
Worksheets(" Sheet1 ").Range(" 5:7 ").EntireRow.Insert
End Sub

Esta macro específica irá inserir três linhas em branco no intervalo de 5 a 7 da planilha chamada Planilha1 e mover para baixo todas as linhas existentes.

Método 2: inserir linhas com base em uma célula ativa

 SubInsertMultipleRows ()
ActiveCell.EntireRow.Resize(3).Insert Shift:=xlDown
End Sub

Esta macro específica irá inserir três linhas em branco começando na célula que você selecionou atualmente em sua planilha e descendo todas as linhas existentes.

Os exemplos a seguir mostram como usar cada método na prática com a seguinte planilha no Excel:

Exemplo 1: Inserir linhas em um intervalo específico

Podemos criar a seguinte macro para inserir três linhas em branco no intervalo de 5 a 7 da planilha chamada Planilha1 e mover para baixo todas as linhas existentes:

 SubInsertMultipleRows ()
Worksheets(" Sheet1 ").Range(" 5:7 ").EntireRow.Insert
End Sub

Quando executamos esta macro, recebemos a seguinte saída:

Observe que três linhas em branco foram inseridas na planilha nos locais das linhas 5 a 7 .

Os valores que anteriormente existiam nestas linhas foram simplesmente reduzidos.

Exemplo 2: Inserir linhas com base em uma célula ativa

Digamos que a célula A3 esteja selecionada em minha planilha.

Podemos criar a seguinte macro para inserir três linhas em branco na planilha começando na célula atualmente selecionada:

 SubInsertMultipleRows ()
ActiveCell.EntireRow.Resize(3).Insert Shift:=xlDown
End Sub

Quando executamos esta macro, recebemos a seguinte saída:

Observe que três linhas em branco foram inseridas na planilha começando na linha 3.

Os valores que existiam anteriormente nessas linhas foram reduzidos.

Recursos adicionais

Os tutoriais a seguir explicam como realizar outras tarefas comuns em VBA:

VBA: Como encontrar a última linha usada
VBA: Como contar o número de linhas no intervalo
VBA: Como contar o número de colunas usadas