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 Sub

Florales:

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.

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.

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