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.
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
End Sub
O Que Esta Macro Faz?
Quando executada, a macro:
- Identifica a célula atualmente selecionada.
- Move uma linha para baixo.
- Seleciona um intervalo de 4 linhas.
- Insere essas 4 linhas na planilha.
Quando executada, a macro:
- Identifica a célula atualmente selecionada.
- Move uma linha para baixo.
- Seleciona um intervalo de 4 linhas.
- 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 13Depois de executar a macro:
Linha 10
(Nova Linha)
(Nova Linha)
(Nova Linha)
(Nova Linha)
Linha 11
Linha 12
Linha 13As quatro novas linhas serão inseridas imediatamente abaixo da linha da célula ativa.
Suponhamos que a célula ativa esteja na linha 10.
Antes:
Depois de executar a macro:
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.
Representa a célula atualmente selecionada pelo usuário.
Offset(1)
Offset(1)Move a referência uma linha para baixo.
Move a referência uma linha para baixo.
Resize(4,1)
Resize(4,1)Redimensiona o intervalo para ocupar 4 linhas e 1 coluna.
Redimensiona o intervalo para ocupar 4 linhas e 1 coluna.
EntireRow
EntireRow
``Seleciona as linhas completas do intervalo.
Seleciona as linhas completas do intervalo.
Insert
InsertInsere novas linhas na planilha.
Insere novas linhas na planilha.
Como Inserir a Macro no Excel
- Abra o Excel.
- Pressione ALT + F11 para abrir o Editor VBA.
- Clique em Inserir > Módulo.
- Cole o código apresentado.
- Salve o arquivo como Pasta de Trabalho Habilitada para Macro (.xlsm).
- Execute a macro pressionando ALT + F8.
- Abra o Excel.
- Pressione ALT + F11 para abrir o Editor VBA.
- Clique em Inserir > Módulo.
- Cole o código apresentado.
- Salve o arquivo como Pasta de Trabalho Habilitada para Macro (.xlsm).
- 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
Crie uma planilha simples com os seguintes dados:
Desafio
- Clique em qualquer célula da linha do produto "Mouse".
- Execute a macro.
- Verifique se foram criadas 4 linhas abaixo desse registro.
- Preencha as novas linhas com produtos adicionais.
- Clique em qualquer célula da linha do produto "Mouse".
- Execute a macro.
- Verifique se foram criadas 4 linhas abaixo desse registro.
- 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.
✅ 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 SubPalavras-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
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:
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
