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 Sub

3. 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!

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?