Comment supprimer des feuilles vides d'un classeur
Supposons que vous ayez un grand classeur avec plusieurs feuilles, mais qu'il y ait des feuilles vides sans aucun contenu dans ce classeur. Pour rendre le classeur plus professionnel et formel, vous souhaitez supprimer ces feuilles vierges du classeur. Au lieu de supprimer les feuilles vides une par une, j'introduis les méthodes pour supprimer rapidement toutes les feuilles vierges.
Supprimer les feuilles vierges par VBA
Supprimer les feuilles vierges par Kutools for Excel 
Supprimer les feuilles vierges par VBA
Ici, je présente un VBA pour vous aider à supprimer rapidement toutes les feuilles vierges d'un classeur ouvert.
1. presse Alt + F11 clés pour activer Microsoft Visual pour les applications de base fenêtre.
2. Et cliquez sur insérer > Module, collez ci-dessous le code VBA pour le nouveau popped out Module fenêtre.
VBA: supprimez les feuilles vides.
Sub DeletEmptySheets()
'UpdatebyKutoolsforExcel20151130
Dim xWs As Worksheet
Dim xAlert As Boolean
Dim xCount As Long
xAlert = Application.DisplayAlerts
Application.DisplayAlerts = False
If MsgBox("Are you sure to remove all empty sheets?", vbYesNo, "Kutools for Excel") = vbNo Then Exit Sub
For Each xWs In ActiveWorkbook.Worksheets
If (Application.CountA(xWs.Cells) = 0) And _
(xWs.Shapes.Count = 0) Then
xWs.Delete
xCount = xCount + 1
End If
Next
MsgBox "You have removed " & xCount & " empty sheet(s)", , "Kutools for Excel"
Application.DisplayAlerts = xAlert
End Sub3. Et appuyez sur F5 ou le bouton Exécuter pour exécuter le VBA, et une boîte de dialogue apparaît pour vous rappeler s'il faut supprimer les feuilles vides, cliquez sur Oui continuer à supprimer, Non pour annuler ce VBA.
4. Après avoir cliqué Oui, une boîte de dialogue apparaît pour vous indiquer le nombre de feuilles supprimées, cliquez sur OK pour le fermer, et toutes les feuilles vides ont été retirées à ce moment.
Supprimer les feuilles vierges par Kutools for Excel
Pour certaines mains vertes d'Excel, le VBA est une méthode un peu difficile à exécuter, mais avec Kutools for Excel's Supprimer les feuilles de calcul vierges fonction, vous pouvez supprimer rapidement toutes les feuilles vides d'un classeur en trois clics de souris!
| Kutools for Excel, avec plus de 300 fonctions pratiques, rend vos travaux plus faciles. |
Après installation gratuite Kutools for Excel, procédez comme suit:
1. Activez le classeur dont vous souhaitez supprimer ses feuilles vides, puis cliquez sur Kutools Plus > Feuille > Supprimer les feuilles de calcul vierges. Voir la capture d'écran:
Articles relatifs:
- Comment compter et supprimer les doublons d'une liste dans Excel?
- Comment supprimer la chaîne après le nième caractère dans Excel?
- Comment supprimer du texte entre crochets / parenthèses dans Excel?
- Comment supprimer des formes de ligne dans Excel?
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!
