Como deletar planilha com base no valor da célula no Excel?
Supondo que eu tenha várias planilhas em uma pasta de trabalho, agora, quero excluir as planilhas com base no valor da célula. Por exemplo, se a célula específica A1 contiver o texto “KTE”, todas as planilhas em que a célula A1 contém esse texto deverão ser excluídas de uma vez. Este artigo pode ajudá-lo a lidar com essa tarefa 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ê deletar todas as planilhas cuja célula específica tem um determinado valor, por favor, faça o seguinte:
1. Mantenha pressionada a ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.
Código VBA: Exclua a 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
Note: No código acima, A1 é a célula específica que contém determinado texto no qual você deseja excluir as planilhas.
3. Então aperte F5 para executar este código e uma caixa de prompt é exibida para lembrá-lo de inserir o valor específico no qual deseja excluir as planilhas, consulte a captura de tela:
4. E, em seguida, clique em OK botão, todas as planilhas cuja célula A1 contém o texto KTE foram excluídas de uma vez. Veja a imagem:
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!
