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

Per eliminare tutti i fogli di una cartella di lavoro Excel tranne quello specificato o attualmente attivo, puoi procedere come mostrato nei metodi seguenti.

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 seguente codice VBA, puoi eliminare tutti i fogli di una cartella di lavoro tranne uno specifico in Excel.

1. Premi contemporaneamente i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic Application.

2. Clicca su Inserisci > Modulo, quindi copia e incolla il seguente 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 mantenere 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 And xWs.Name <> "il nome del tuo foglio" prima della parola chiave Then alla sesta riga del codice. Ad esempio: If xWs.Name <> "Sheet1" And xWs.Name <> "Sheet2" And xWs.Name <> "il nome del tuo foglio" Then

3. Se vuoi mantenere un solo foglio ed eliminarne tutti gli altri dalla cartella di lavoro, rimuovi tutte le condizioni And nel codice. Ad esempio, per mantenere Sheet1 nella cartella di lavoro corrente, devi cambiare il codice alla sesta riga in: If xWs.Name <> "Sheet1" Then

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

Puoi facilmente rimuovere tutti i fogli tranne quello attivo corrente con un solo clic utilizzando la funzione Elimina tutti i fogli inattivi di Kutools per Excel.

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

3. Poi apparirà una finestra di dialogo, se sei sicuro di voler eliminare tutti i fogli tranne quello attivo, clicca sul pulsante OK, altrimenti, clicca sul pulsante Annulla.

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

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