Comment supprimer une feuille si le nom contient du texte spécifique du classeur?
Supposons que vous ayez un classeur qui contient plusieurs feuilles de calcul et que vous souhaitiez maintenant supprimer les feuilles par noms d'onglets. Par exemple, si le nom de la feuille contient un texte spécifique «KTE», supprimez-le, puis obtenez la capture d'écran suivante. Comment pouvez-vous supprimer les feuilles si le nom contient un texte spécifique immédiatement sans les supprimer une par une?
Supprimer les feuilles si le nom contient du texte spécifique avec le code VBA
Supprimer les feuilles si le nom contient du texte spécifique avec le code VBA
Ici, je vais créer un code VBA pour que vous supprimiez les feuilles par nom, procédez comme suit:
1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
2Cliquez sur insérer > Moduleet collez le code suivant dans le Module Fenêtre.
Code VBA: supprimer les feuilles si le nom contient du texte spécifique
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. Puis appuyez F5 clé pour exécuter ce code, et une boîte de dialogue s'affiche pour vous rappeler d'entrer le texte spécifique sur lequel vous souhaitez supprimer l'onglet de la feuille, voir capture d'écran:
4. Et puis cliquez OK, toutes les feuilles dont le nom contient le texte spécifié «KTE» ont été supprimées en même temps. Voir la capture d'écran:
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!