Como eliminar todas as folhas, exceto a especificada ou a atual, no Excel?
Para eliminar todas as folhas de uma pasta de trabalho do Excel, exceto a folha especificada ou a Planilha Ativa atual, pode resolver este caso utilizando os métodos indicados abaixo.
Eliminar todas as folhas exceto a especificada com código VBA
Um clique para eliminar todas as folhas exceto a folha ativa atual com Kutools para Excel
Eliminar todas as folhas exceto a especificada com código VBA
Com o código VBA abaixo, pode eliminar todas as folhas de um livro do Excel, exceto a que especificar.
1. Prima simultaneamente as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e, de seguida, copie e cole o código VBA seguinte na janela do Módulo.
Código VBA: Eliminar todas as folhas exceto as especificadas
Sub DeleteSheets1()
Dim xWs As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> "Sheet1" And xWs.Name <> "Sheet2" Then
xWs.Delete
End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End SubNotas:
1. «Folha1» e «Folha2» são as folhas que pretende manter no Livro de Trabalho Atual. Pode ajustá-las conforme as suas necessidades.
2. Se quiser eliminar todas as folhas, mas manter várias folhas especificadas, adicione And xWs.Name "nome da sua folha" antes da palavra-chave Then na sexta linha do código. Por exemplo: If xWs.Name "Folha1" And xWs.Name "Folha2"And xWs.Name «nome da sua folha» Then
3. Se pretender manter apenas uma folha e eliminar todas as outras do livro, remova todas as condições And do código. Por exemplo, para manter a Folha1 no Livro de Trabalho Atual, altere a sexta linha do código para:If xWs.Name "Folha1" Then
Eliminar todas as folhas exceto a folha ativa atual com Kutools para Excel (apenas um clique)
P ode eliminar facilmente todas as folhas exceto a folha Planilha Atual atual com apenas um clique através da utilidade Eliminar Todas as Folhas Inativasdo Kutools para Excel.
1. Clique em KUTOOLS PLUS > Folha de cálculo > Eliminar Todas as Folhas Inativas.
3. Em seguida, surge uma caixa de diálogo; se decidir eliminar todas as folhas exceto a ativa, clique no botão OK. Caso contrário, clique no botão Cancelar.
Assim, todas as folhas serão eliminadas, exceto a folha ativa atual no seu livro.
Kutools para Excel– Potencie o Excel com mais de 300 ferramentas essenciais, tornando o seu trabalho mais rápido e fácil, e aproveite as funcionalidades de IA para um processamento de dados mais inteligente e uma maior produtividade.Obtenha Já
Demonstração: Eliminar todas as folhas exceto a folha ativa atual com Kutools para 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