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: