Comment supprimer une feuille de calcul en fonction de la valeur de la cellule dans Excel?
En supposant que j'ai plusieurs feuilles de calcul dans un classeur, je souhaite maintenant supprimer les feuilles en fonction de la valeur de la cellule. Par exemple, si la cellule spécifique A1 contient le texte «KTE», toutes les feuilles dont la cellule A1 contient ce texte doivent être supprimées en même temps. Cet article peut vous aider à gérer cette tâche dans Excel.
Supprimer la feuille de calcul en fonction de la valeur de la cellule avec le code VBA
Supprimer la feuille de calcul en fonction de la valeur de la cellule avec le code VBA
Ici, je vais introduire un code pour vous permettre de supprimer toutes les feuilles dont la cellule spécifique a une certaine valeur, procédez comme suit:
1. Maintenez la touche 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 la feuille de calcul en fonction de la valeur de la cellule:
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
Notes: Dans le code ci-dessus, A1 est la cellule spécifique qui contient le texte sur lequel vous souhaitez supprimer les feuilles.
3. Puis appuyez F5 clé pour exécuter ce code, et une boîte de dialogue s'affiche pour vous rappeler de saisir la valeur spécifique sur laquelle vous souhaitez supprimer les feuilles, voir capture d'écran:
4. Et puis cliquez OK bouton, toutes les feuilles dont la cellule A1 a le texte KTE ont été supprimées à la fois. 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!