Como excluir uma planilha se o nome contiver um texto específico da pasta de trabalho?

Suponha que você tenha uma pasta de trabalho que contenha várias planilhas e agora deseja excluir as planilhas com base nos nomes das abas. Por exemplo, se o nome da planilha contiver um texto específico “KTE”, exclua-a, conforme mostrado na captura de tela a seguir. Como você poderia excluir as planilhas cujo nome contém um texto específico imediatamente, sem precisar excluí-las uma por uma?

Excluir planilhas se o nome contiver um texto específico com código VBA

Excluir planilhas se o nome contiver um texto específico com código VBA

Aqui, vou criar um código VBA para você excluir as planilhas pelo nome; siga estas instruções:

1. Pressione e segure 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 planilhas se o nome contiver um texto específico

Sub Deletebyname()
'Updateby Extendoffice
    Dim shName As String
    Dim xName As String
    Dim xWs As Worksheet
    Dim cnt As Integer
    shName = Application.InputBox("Enter the specific text:", "Kutools for Excel", _
                                    ThisWorkbook.ActiveSheet.Name, , , , , 2)
    If shName = "" Then Exit Sub
    xName = "*" & shName & "*"
'    MsgBox xName
    Application.DisplayAlerts = False
    cnt = 0
    For Each xWs In ThisWorkbook.Sheets
        If xWs.Name Like xName Then
            xWs.Delete
            cnt = cnt + 1
        End If
    Next xWs
    Application.DisplayAlerts = True
    MsgBox "Have deleted" & cnt & "worksheets", vbInformation, "Kutools for Excel"
End Sub

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 texto específico com base no qual deseja excluir a aba da planilha, veja a captura de tela:

4. Depois clique em OK, todas as planilhas cujo nome contém o texto especificado “KTE” serão excluídas de uma só vez. Veja a captura de tela:

Desbloqueie a Magia do Excel com o Kutools AI

• Execução Inteligente: Realize operações de células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
• Fórmulas Personalizadas: Gere fórmulas sob medida para otimizar seus fluxos de trabalho.
• Codificação VBA: Escreva e implemente código VBA sem esforço.
• Interpretação de Fórmulas: Compreenda fórmulas complexas com facilidade.
• Tradução de Texto: Supere barreiras linguísticas dentro de suas planilhas.

Potencialize suas capacidades no Excel com ferramentas alimentadas por IA. Baixe Agora e experimente uma eficiência como nunca antes!