Como Inserir 4 Linhas Abaixo da Linha Ativa no Excel com VBA

Como Inserir 4 Linhas Abaixo da Linha Ativa no Excel com VBA

Aprenda a criar uma macro VBA que insere automaticamente 4 linhas abaixo da célula ativa no Excel. Veja o código completo, entenda o funcionamento de cada comando e pratique com um exercício simples.

Como Inserir 4 Linhas Abaixo da Linha Ativa no Excel Usando VBA

Se você trabalha frequentemente com planilhas do Excel, pode precisar adicionar várias linhas abaixo de um registro existente. Fazer isso manualmente pode consumir tempo, especialmente em planilhas grandes.

Neste tutorial, você aprenderá a criar uma macro VBA capaz de inserir automaticamente 4 linhas abaixo da linha selecionada.

Código VBA

Sub inserir_quatro_linhas_abaixo()

ActiveCell.Offset(1).Resize(4, 1).EntireRow
End Sub

O Que Esta Macro Faz?

Quando executada, a macro:

1. Identifica a célula atualmente selecionada.
2. Move uma linha para baixo.
3. Seleciona um intervalo de 4 linhas.
4. Insere essas 4 linhas na planilha.

Exemplo

Suponhamos que a célula ativa esteja na linha 10.

Antes:

Linha 10

Linha 11

Linha 12

Linha 13

Depois de executar a macro:

Linha 10

(Nova Linha)

(Nova Linha)

(Nova Linha)

(Nova Linha)

Linha 11

Linha 12

Linha 13

As quatro novas linhas serão inseridas imediatamente abaixo da linha da célula ativa.

Entendendo o Código

ActiveCell

ActiveCell

Representa a célula atualmente selecionada pelo usuário.

Offset(1)

Offset(1)

Move a referência uma linha para baixo.

Resize(4,1)

Resize(4,1)

Redimensiona o intervalo para ocupar 4 linhas e 1 coluna.

EntireRow

EntireRow

``

Seleciona as linhas completas do intervalo.

Insert

Insert

Insere novas linhas na planilha.

Como Inserir a Macro no Excel

1. Abra o Excel.
2. Pressione ALT + F11 para abrir o Editor VBA.
3. Clique em Inserir > Módulo.
4. Cole o código apresentado.
5. Salve o arquivo como Pasta de Trabalho Habilitada para Macro (.xlsm).
6. Execute a macro pressionando ALT + F8.

Exercício Prático

Crie uma planilha simples com os seguintes dados:

Código Produto

001 Teclado

002 Mouse

003 Monitor

004 Impressora

Desafio

1. Clique em qualquer célula da linha do produto "Mouse".
2. Execute a macro.
3. Verifique se foram criadas 4 linhas abaixo desse registro.
4. Preencha as novas linhas com produtos adicionais.

Resultado Esperado

001 Teclado

002 Mouse

(Nova Linha)

(Nova Linha)

(Nova Linha)

(Nova Linha)

003 Monitor

004 Impressora

Dicas

✅ Ideal para formulários e cadastros.

✅ Facilita a inclusão de novos registros.

✅ Evita a inserção manual de várias linhas.

✅ Pode ser adaptada para inserir qualquer quantidade de linhas.

Conclusão

Com apenas uma linha de código VBA, é possível automatizar a inserção de quatro linhas abaixo da linha ativa no Excel. Esse tipo de automação aumenta a produtividade e reduz tarefas repetitivas, tornando o trabalho com planilhas muito mais eficiente.

Expedito Marcondes:
suportecursovba@gmail.com

📥 Baixe o Exemplo de Planilha Excel VBA

Macro utilizada:

Sub inserir_quatro_linhas_abaixo()

ActiveCell.Offset(1).Resize(4, 1).EntireRow.Insert

End Sub

Palavras-chave SEO: Excel VBA, inserir linhas automaticamente, Macro Excel, VBA para iniciantes, automação Excel, inserir 4 linhas no Excel, programação VBA, tutorial Excel VBA.c