Como excluir a planilha se o nome contém um texto específico da pasta de trabalho?
Suponha que você tenha uma pasta de trabalho que contém várias planilhas e, agora, deseja excluir as planilhas por nomes de guias. Por exemplo, se o nome da planilha contém um texto específico “KTE”, exclua-o e obtenha a seguinte captura de tela. Como você poderia deletar as folhas se o nome contém um texto específico imediatamente sem deletar uma por uma?
Excluir planilhas se o nome contiver texto específico com código VBA
Excluir planilhas se o nome contiver texto específico com código VBA
Aqui, vou criar um código VBA para você excluir as planilhas por nome, faça o seguinte:
1. Segure o 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: Excluir planilhas se o nome contiver 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. Então aperte F5 para executar este código, e uma caixa de prompt é exibida para lembrá-lo de inserir o texto específico no qual deseja excluir a guia da planilha, consulte a captura de tela:
4. E, em seguida, clique em OK, todas as folhas cujo nome contém o texto especificado “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!