Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment supprimer des feuilles vides d'un classeur

Supposons que vous ayez un classeur volumineux avec plusieurs feuilles, mais qu'il existe 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, je présente les méthodes pour supprimer toutes les feuilles vierges rapidement.

Supprimer les feuilles blanches par VBA

Supprimer les feuilles vierges par Kutools pour Excel bonne idée3


flèche bleue droite bulle Supprimer les feuilles blanches 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 touches pour activer Microsoft Visual pour les applications de base fenêtre.

2. Et cliquez insérer > Module, coller sous le code VBA à la nouvelle sortie Module fenêtre.

VBA: supprime 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 F5 touche ou Exécuter pour exécuter le VBA, et une boîte de dialogue apparaît pour vous rappeler si vous souhaitez supprimer les feuilles vides, cliquez sur Oui continuer à enlever, Non annuler cette VBA.

doc supprimer les feuilles vides 1

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é enlevées en ce moment.

doc supprimer les feuilles vides 2

formule Ne plus jamais avoir à vous soucier des longues formules longues dans Excel! Kutools for Excel's Texte automatique peut ajouter toutes les formules à un groupe
en tant que texte automatique, et libérez votre cerveau! Savoir à propos du texte automatique Obtenir un essai gratuit

flèche bleue droite bulle Supprimer les feuilles vierges par Kutools pour Excel

Pour certaines mains vertes Excel, le VBA est une méthode quelque peu difficile à exécuter, mais avec Kutools for Excel's Supprimer des feuilles de calcul vierges fonction, vous pouvez rapidement supprimer toutes les feuilles vides d'un classeur avec trois clics de souris!

Kutools for Excel, avec plus de 120 fonctions Excel pratiques, améliorez votre efficacité de travail et économisez votre temps de travail.

après installation gratuite Kutools pour Excel, s'il vous plaît faire comme ci-dessous:

1. Activer le classeur que vous souhaitez supprimer ses feuilles vides et cliquez sur Entreprise > Feuille > Supprimer des feuilles de calcul vierges. Voir la capture d'écran:

doc supprimer les feuilles vides 3

2. Et un Kutools for Excel boîte de dialogue apparaît pour reconfirmer que si vous souhaitez supprimer toutes les feuilles vierges, et cliquez sur Oui continuer à enlever, et Non annuler. Voir la capture d'écran:

doc supprimer les feuilles vides 4

3. Et après avoir cliqué Oui, une boîte de dialogue apparaît pour vous rappeler le nombre de feuilles supprimées avec succès. Cliquez sur OK pour la fermer.

doc supprimer les feuilles vides 5

prêter attention1Si vous êtes intéressé par cet add-in, cliquez ici pour télécharger l'essai gratuit de 60-days.


Articles relatifs:


doc KTE



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.