Como excluir uma planilha com base no valor da célula no Excel?
Se você tiver várias planilhas em uma pasta de trabalho e precisar excluir determinadas planilhas com base no conteúdo de uma célula específica, o VBA pode ajudar a automatizar essa tarefa. Por exemplo, você pode querer remover todas as planilhas onde a célula A1 contém uma palavra ou frase específica. Este guia mostrará como usar o VBA para identificar e excluir rapidamente essas planilhas no Excel.
Excluir planilha com base no valor da célula com código VBA
Excluir planilha com base no valor da célula com código VBA
Aqui, vou apresentar um código para você excluir todas as planilhas em que a célula específica possui um determinado valor; por favor, siga os passos abaixo:
1. Mantenha pressionadas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.
Código VBA: Excluir planilha com base no valor da célula:
Sub deletesheetbycell()
'Updateby Extendoffice
Dim shName As String
Dim xName As String
Dim xWs As Worksheet
Dim cnt As Integer
shName = Application.InputBox("Input the text to delete the sheets based on:", "Kutools for Excel", _
"", , , , , 2)
Application.DisplayAlerts = False
cnt = 0
For Each xWs In ThisWorkbook.Sheets
If xWs.Range("A1").Value = shName Then
xWs.delete
cnt = cnt + 1
End If
Next xWs
Application.DisplayAlerts = True
MsgBox "Have deleted " & cnt & " worksheets.", vbInformation, "Kutools for Excel"
End Sub
Observação: No código acima, A1 é a célula específica que contém o texto que você deseja usar como base para excluir as planilhas.
3. Em seguida, pressione a tecla F5 para executar este código, e uma caixa de prompt será exibida para lembrá-lo de inserir o valor específico que deseja usar como base para excluir as planilhas, veja a captura de tela:
4. Depois clique no botão OK, todas as planilhas em que a célula A1 contém o texto KTE serão excluídas de uma vez. Veja a captura de tela:
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