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 SubNote:
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.
Kutools per Excel - Potenzia Excel con oltre 300 strumenti essenziali. Goditi funzionalità AI gratuite per sempre! Ottienilo ora
Demo: Elimina tutti i fogli tranne quello attivo corrente con Kutools per Excel
I migliori strumenti per la produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un'efficienza mai vista prima. Kutools per Excel offre oltre300 funzionalità avanzate per aumentare la produttività e farti risparmiare tempo. Clicca qui per ottenere la funzione di cui hai più bisogno...
Office Tab porta le schede su Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra invece che in nuove finestre.
- Aumenta la produttività del50% e riduce centinaia di clic del mouse ogni giorno!
Tutti gli add-in Kutools. Un solo programma di installazione
La suite Kutools for Office include add-in per Excel, Word, Outlook & PowerPoint più Office Tab Pro, ideale per i team che lavorano su più app di Office.
- Suite tutto-in-uno — Add-in per Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un solo programma di installazione, una sola licenza — configurazione in pochi minuti (pronto per MSI)
- Funzionano meglio insieme — produttività ottimizzata su tutte le app Office
- Prova completa30 giorni — nessuna registrazione, nessuna carta di credito
- Massimo risparmio — costa meno rispetto all’acquisto singolo degli add-in