Comment supprimer toutes les feuilles sauf celle spécifiée / actuelle dans Excel?
Pour supprimer toutes les feuilles d'un classeur Excel à l'exception d'une feuille spécifiée ou de la feuille active actuelle, vous pouvez gérer 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 active actuelle avec Kutools for Excel
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 d'un classeur à l'exception d'une feuille 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 ci-dessous 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 SubNotes:
1. »Sheet1" et "Sheet2»Sont des feuilles que vous souhaitez conserver dans le classeur actuel. Vous pouvez les modifier en fonction de vos besoins.
2. Si vous souhaitez tout supprimer mais conserver plus de feuilles, veuillez ajouter le code Et xWs.Name <> "le nom de votre 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 tout supprimer du classeur, veuillez tout supprimer Et condition dans le code. Par exemple, pour conserver la feuille Sheet1 dans le classeur actuel, vous devez modifier le code de sixième ligne en: Si xWs.Name <> "Sheet1" Alors
Supprimez toutes les feuilles sauf celle active actuelle avec Kutools for Excel (un seul clic)
YVous pouvez facilement supprimer toutes les feuilles sauf la feuille active actuelle en un seul clic en Supprimer toutes les feuilles inactives utilité de Kutools for Excel.
Avant d'appliquer Kutools for Excel, S'il vous plaît téléchargez et installez-le d'abord.
1. Cliquez Kutools Plus > Feuille > Supprimer toutes les feuilles inactives.
3. Ensuite, une boîte de dialogue apparaît, si vous décidez de supprimer toutes les feuilles sauf une active, cliquez sur le OK bouton, sinon, cliquez sur le Annuler .
Ensuite, toutes les feuilles sont supprimées à l'exception de celle actuellement active dans votre classeur.
Si vous souhaitez bénéficier d'un essai gratuit (30 jours) de cet utilitaire, veuillez cliquer pour le télécharger, puis passez à appliquer l'opération selon les étapes ci-dessus.
Ajouter du texte au milieu des cellules sélectionnées avec Kutools for 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!
