Como deletar todas as planilhas exceto a especificada / atual no Excel?
Para excluir todas as planilhas em uma pasta de trabalho do Excel, exceto uma especificada ou a planilha ativa atual, você pode lidar com isso conforme os métodos mostrados a seguir.
Exclua todas as folhas, exceto aquela especificada com código VBA
Um clique para excluir todas as planilhas, exceto a atual ativa com Kutools para Excel
Exclua todas as folhas, exceto aquela especificada com código VBA
Com o código VBA abaixo, você pode excluir todas as planilhas em uma pasta de trabalho, exceto uma específica no Excel.
1. Pressione outro + F11 simultaneamente para abrir o Aplicativo Microsoft Visual Basic janela.
2. Clique inserção > Módulo, em seguida, copie e cole o código VBA abaixo na janela Módulo.
Código VBA: Excluir 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 Sub
Notas:
1. 'Sheet1"E"Sheet2”São planilhas que você deseja manter na pasta de trabalho atual. Você pode alterá-los de acordo com suas necessidades.
2. Se você deseja excluir tudo, mas manter mais planilhas, adicione o código E xWs.Name <> "nome da folha" antes de o Então palavra na sexta linha do código. Tal como:
Se xWs.Name <> "Planilha1" E xWs.Name <> "Planilha2" E xWs.Name <> "nome da sua planilha" Então
3. Se você deseja apenas manter uma planilha e excluir todas da pasta de trabalho, remova todas E condição no código. Por exemplo, para manter a planilha1 na pasta de trabalho atual, você precisa alterar o código da sexta linha para: Se xWs.Name <> "Planilha1" Então
Exclua todas as planilhas, exceto a atual ativa com o Kutools para Excel (apenas um clique)
Yvocê pode remover facilmente todas as páginas, exceto a página ativa atual com apenas um clique Excluir todas as folhas inativas utilidade de Kutools for Excel.
Antes de aplicar Kutools for Excel, Por favor baixe e instale primeiro.
1. Clique Kutools Plus > Planilha > Excluir todas as folhas inativas.
3. Em seguida, uma caixa de diálogo aparecerá, se você decidir excluir todas as folhas, exceto a ativa, clique no OK botão, caso contrário, clique no Cancelar botão.
Em seguida, todas as planilhas são excluídas, exceto a atual ativa em sua pasta de trabalho.
Se você quiser ter um teste gratuito (30 dias) deste utilitário, por favor clique para fazer o downloade, em seguida, aplique a operação de acordo com as etapas acima.
Adicione texto no meio das células selecionadas com o Kutools para Excel
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!