Como excluir as linhas acima da célula ativa ou de um texto específico no Excel?
Se tiver uma folha de cálculo extensa com múltiplas linhas e quiser eliminar todas as linhas acima da célula ativa ou de um determinado texto, como pode proceder? Pode eliminar as linhas selecionando-as e, em seguida, clicando com o botão direito do rato para escolher Eliminar no menu de contexto manualmente. No entanto, aqui apresento códigos VBA para Excluir linhas rapidamente acima; se tiver interesse, consulte Ler os detalhes abaixo.
Excluir linhas acima com códigos VBA
Excluir linhas acima com códigos VBA
Apresentamos dois códigos VBA: um exclui a linha imediatamente acima da célula ativa (selecionada) e o outro remove as linhas situadas acima de um texto especificado.
1. Selecione a célula acima da qual pretende excluir linhas e prima as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o código seguinte no script do Módulo.
VBA: Excluir linhas acima da célula ativa
Sub DeleteRowsAboveActive()
Range("A1:A" & ActiveCell.Row - 1).EntireRow.Delete
End Sub
3. Prima a tecla F5 e as linhas acima da célula ativa serão removidas. Veja a imagem:
Se pretender excluir as linhas acima de um texto especificado, pode utilizar o seguinte código VBA.
VBA: Excluir linhas acima do texto especificado
Sub DeleteRowsABove()
'UpdatebyExtendoffice20161109
Dim fRg As Range
Set fRg = Cells.Find(What:="Total Group", LookAt:=xlWhole)
If Not fRg Is Nothing Then
If fRg.Row <> 1 Then
Range("A1", fRg.Offset(-1)).EntireRow.Delete
Else
MsgBox "Total Group is in the first row already", vbInformation, "Kutools for Excel"
End If
Else
MsgBox "Do not find Total Group", vbInformation, "Kutools for Excel"
End If
End Sub
Nota:
1. No código, Total Group é o texto que pretende localizar; pode alterá-lo conforme necessário.
2. Se o texto que procura já estiver na primeira linha, surge uma caixa de diálogo a avisá-lo.
3. Se o texto especificado não for encontrado na folha, será exibida uma caixa de diálogo a notificá-lo, conforme ilustrado abaixo.
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