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 toutes les feuilles sauf spécifié / actuel dans Excel?

Pour supprimer toutes les feuilles d'un classeur Excel, à l'exception d'une feuille active ou d'une feuille active, vous pouvez traiter cela comme indiqué ci-dessous.

Supprimer toutes les feuilles sauf celle spécifiée avec le code VBA

Un clic pour supprimer toutes les feuilles sauf celle en cours avec Kutools for Excel


Supprimez rapidement toutes les feuilles de calcul, sauf celle active dans le classeur en cours:

Le bouton Supprimer toutes les feuilles inactives utilité de Kutools for Excel vous aide à supprimer facilement toutes les feuilles de calcul du classeur en cours, à l'exception de la feuille active. Voir la capture d'écran:

Kutools for Excel comprend plus de 300 outils maniables Excel. Gratuit pour essayer sans limitation dans les jours 60. Téléchargez l'essai gratuit maintenant


Supprimer toutes les feuilles sauf celle spécifiée avec le code VBA


Avec le code VBA ci-dessous, vous pouvez supprimer toutes les feuilles dans un classeur, sauf spécifique dans Excel.

1. presse autre + F11 touches simultanément pour ouvrir le Application Microsoft Visual Basic fenêtre.

2. Cliquez insérer > Module, puis copiez et collez sous le code VBA dans la fenêtre Module.

Code VBA: Supprimer toutes les feuilles sauf celles spécifiées

Sub DeleteSheets1()
	Dim xWs As Worksheet
	Application.ScreenUpdating = False
	Application.DisplayAlerts  = False
	For Each xWs In Application.ActiveWorkbook.Worksheets
		If xWs.Name <> "Sheet1" And xWs.Name <> "Sheet2" Then
			xWs.Delete
		End If
	Next
	Application.DisplayAlerts = True
	Application.ScreenUpdating = True
End Sub

Remarques:

1. »Sheet1" et "Sheet2"Sont les feuilles que vous souhaitez conserver dans le classeur actuel. Vous pouvez les changer en fonction de vos besoins.

2. Si vous voulez tout supprimer mais garder plus de feuilles, s'il vous plaît ajouter du code Et xWs.Name <> "votre nom de feuille" avant la Ensuite mot dans la sixième ligne du code. Tel que:

Si xWs.Name <> "Sheet1" et xWs.Name <> "Sheet2" Et xWs.Name <> "votre nom de feuille" Ensuite

3. Si vous souhaitez simplement conserver une feuille et supprimer toutes les feuilles du classeur, supprimez tout Et condition dans le code. Par exemple, pour conserver sheet1 dans le classeur en cours, vous devez remplacer le sixième code de ligne par: Si xWs.Name <> "Sheet1" Alors


Supprimer toutes les feuilles sauf celle en cours avec Kutools pour Excel (Un clic seulement)

YVous pouvez facilement enlever toutes les feuilles sauf la feuille active actuelle en un seul clic par Supprimer toutes les feuilles inactives utilité de Kutools for Excel.

Kutools for Excel : avec plus de 300 compléments Excel pratiques, gratuit pour essayer sans limitation dans 60 jours.

1. Cliquez Entreprise > Feuille > Supprimer toutes les feuilles inactives. Voir la capture d'écran:

3. Ensuite, une boîte de dialogue apparaît, si vous décidez de supprimer toutes les feuilles sauf une active, cliquez sur OK bouton, sinon, cliquez sur Annuler .

Toutes les feuilles sont ensuite supprimées, sauf celle en cours dans votre classeur.

Pointe.Si vous voulez avoir un essai gratuit de cet utilitaire, allez à téléchargez le logiciel librement d'abord, puis allez appliquer l'opération selon les étapes ci-dessus.


Ajouter du texte au milieu des cellules sélectionnées avec Kutools for Excel

Kutools for Excel comprend plus de 300 outils maniables Excel. Gratuit pour essayer sans limitation dans les jours 60. Téléchargez l'essai gratuit maintenant!



Outils de productivité recommandés

Office Tab

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

Kutools for Excel

étoile d&#39;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&#39;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&#39;é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.