Como eliminar todas as linhas abaixo de uma determinada linha ou da célula ativa no Excel?
Para eliminar todas as linhas abaixo de uma determinada linha ou da célula ativa, este artigo é a solução ideal.
Eliminar todas as linhas abaixo de uma determinada linha no Excel com código VBA
Eliminar todas as linhas abaixo da célula ativa no Excel com código VBA
Eliminar todas as linhas abaixo de uma determinada linha no Excel com código VBA
O seguinte código VBA ajuda-o a eliminar todas as linhas abaixo de uma linha específica no Excel.
1. Prima simultaneamente as teclas Alt + F11 para abrir a janela Microsoft Visual Basic para Aplicações.
2. Na janela Microsoft Visual Basic para Aplicações, clique em Inserir > Módulo. Em seguida, copie e cole o seguinte código VBA na janela de Código.
Código VBA: Eliminar todas as linhas abaixo de determinadas linhas no Excel
Sub DeleteRowsBelow()
Worksheets("Sheet1").Rows(5 & ":" & Worksheets("Sheet1").Rows.Count).Delete
End SubNota: No código VBA, o número 5 e Sheet1 indicam que todas as linhas a partir da linha 5 (incluindo a própria linha 5) na Sheet1 serão eliminadas após a execução do código. Pode ajustá-los conforme as suas necessidades.
3. Prima a tecla F5 para executar o código. Em seguida, todas as linhas a partir da linha 5 (incluindo a própria linha 5) são imediatamente eliminadas, como mostrado na imagem seguinte.
Desbloqueie a Magia do Excel com KUTOOLS AI
- Execução Inteligente: Realize operações em células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- fórmulas personalizadas: Crie fórmulas personalizadas para simplificar os seus fluxos de trabalho.
- Programação VBA: Escreva e implemente código VBA com facilidade.
- Interpretação de Fórmulas: Compreenda facilmente fórmulas complexas.
- Tradução de Texto: Elimine barreiras linguísticas nas suas folhas de cálculo.
Eliminar todas as linhas abaixo da célula ativa no Excel com código VBA
Para eliminar todas as linhas imediatamente abaixo da linha da célula ativa no Excel, experimente o seguinte código VBA.
1. Selecione uma célula a partir da qual pretende eliminar todas as linhas abaixo e, em seguida, prima simultaneamente as teclas Alt+F11 para abrir a janela Microsoft Visual Basic para Aplicações.
2. No Microsoft Visual Basic para Aplicações, clique em Inserir > Módulo. Em seguida, copie e cole o seguinte código VBA na janela de Código.
Código VBA: Eliminar todas as linhas abaixo da linha da célula ativa no Excel
Sub DeleteAllBelow()
Rows(ActiveCell.Row & ":" & Rows.Count).Delete
End Sub3. Prima a tecla F5 para executar o código. Em seguida, todas as linhas abaixo da linha da célula ativa (incluindo a própria linha da célula ativa) são imediatamente eliminadas.
Artigos relacionados:
- Como eliminar todas as linhas, exceto a primeira linha de cabeçalho, no Excel?
- Como excluir linhas se a célula for maior ou menor do que um determinado valor no Excel?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos