Como excluir todas as planilhas, exceto a especificada/atual no Excel?
"Para excluir todas as planilhas em uma pasta de trabalho do Excel, exceto a especificada ou a planilha ativa atual, você pode lidar com isso conforme os métodos mostrados abaixo.
Excluir todas as planilhas, exceto a especificada, com código VBA
Um clique para excluir todas as planilhas, exceto a atualmente ativa, com o Kutools para Excel
Excluir todas as planilhas, exceto a especificada, com código VBA
Com o código VBA abaixo, você pode excluir todas as planilhas em uma pasta de trabalho, exceto uma especificada no Excel.
1. Pressione simultaneamente as teclas Alt + F11 para abrir a janela Microsoft Visual Basic Application.
2. Clique em Inserir > Módulo, depois copie e cole o código VBA abaixo na janela Módulo.
Código VBA: Excluir todas as planilhas, 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 SubObservações:
1. “Planilha1” e “Planilha2” são as planilhas que você deseja manter na pasta de trabalho atual. Você pode alterá-las conforme suas necessidades.
2. Se você deseja excluir todas as planilhas, mas manter várias planilhas especificadas, adicione E xWs.Name <> "nome da sua planilha" antes da palavra-chave Então na 6ª linha do código. Por exemplo: Se xWs.Name <> "Planilha1" E xWs.Name <> "Planilha2" E xWs.Name <> "nome da sua planilha" Então
3. Se você quiser manter apenas uma planilha e excluir todas as outras da pasta de trabalho, remova todas as condições E no código. Por exemplo, para manter a Planilha1 na pasta de trabalho atual, você precisa alterar a linha seis do código para: Se xWs.Name <> "Planilha1" Então
Excluir todas as planilhas, exceto a atualmente ativa, com o Kutools para Excel (Apenas um clique)
Você pode facilmente remover todas as planilhas, exceto a planilha ativa atual, com apenas um clique usando a ferramenta Excluir Todas as Planilhas Inativas do Kutools para Excel.
1. Clique em Kutools Plus > Planilha > Excluir Todas as Planilhas Inativas.
3. Em seguida, uma caixa de diálogo aparece, se você decidir excluir todas as planilhas, exceto a ativa, clique no botão OK, caso contrário, clique no botão Cancelar.
Então, todas as planilhas serão excluídas, exceto a atualmente ativa em sua pasta de trabalho.
Kutools para Excel - Potencialize o Excel com mais de 300 ferramentas essenciais. Aproveite recursos de IA permanentemente gratuitos! Obtenha Agora
Demonstração: Excluir todas as planilhas, exceto a atualmente ativa, com o Kutools para Excel
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins