Come eliminare tutti i fogli tranne quello specificato / corrente in Excel?

"Per eliminare tutti i fogli in una cartella di lavoro di Excel, ad eccezione del foglio specificato o attualmente attivo, è possibile procedere come illustrato di seguito.

Elimina tutti i fogli tranne quello specificato con il codice VBA
Un clic per eliminare tutti i fogli tranne quello attivo corrente con Kutools per Excel

Elimina tutti i fogli tranne quello specificato con il codice VBA

Con il codice VBA riportato di seguito è possibile eliminare tutti i fogli di una cartella di lavoro, ad eccezione di uno specificato in Excel.

1. Stampa altro + F11 tasti contemporaneamente per aprire il file Applicazione Microsoft Visual Basic finestra.

2. Clic inserire > Moduli, quindi copia e incolla sotto il codice VBA nella finestra del modulo.

Codice VBA: elimina tutti i fogli tranne quelli specificati

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

Note:

1. "Sheet1" e "Sheet2"Sono i fogli che desideri conservare nella cartella di lavoro corrente. Puoi modificarli in base alle tue esigenze.

2. Se vuoi eliminare tutti i fogli ma mantenere più fogli specificati, aggiungi E xWs.Name <> "il nome del foglio" prima di Poi parola chiave nella sesta riga del codice. Ad esempio: Se xWs.Name <> "Sheet1" e xWs.Name <> "Sheet2" E xWs.Name <> "nome del foglio" Poi

3. Se si desidera solo mantenere un foglio ed eliminare tutto dalla cartella di lavoro, rimuovere tutto E altre ancora… condizione nel codice. Ad esempio, per mantenere foglio1 nella cartella di lavoro corrente, è necessario modificare il codice della sesta riga in: If xWs.Name <> "Sheet1" Then

Elimina tutti i fogli tranne quello attivo corrente con Kutools per Excel (solo un clic)

YPuoi rimuovere facilmente tutti i fogli tranne il foglio attivo corrente con un solo clic Elimina tutti i fogli inattivi utilità di Kutools for Excel.

1. Clic Kutools Plus > Foglio di lavoro > Elimina tutti i fogli inattivi. 

3. Quindi viene visualizzata una finestra di dialogo, se si decide di eliminare tutti i fogli tranne quello attivo, fare clic su OK altrimenti fare clic sul pulsante Annulla pulsante.

Quindi tutti i fogli vengono eliminati tranne quello attivo corrente nella cartella di lavoro.

Demo: Elimina tutti i fogli tranne quello attivo corrente con Kutools per Excel