Note: The other languages of the website are Google-translated. Back to English

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

Per eliminare tutti i fogli in una cartella di lavoro di Excel tranne uno specificato o il foglio attivo corrente, puoi gestirlo come mostrato 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 sottostante, puoi eliminare tutti i fogli in una cartella di lavoro tranne uno specifico in Excel.

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

2. Clic inserire > Modulo, 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 si desidera eliminare tutto ma mantenere più fogli, aggiungere il codice E xWs.Name <> "il nome del foglio" prima di Poi parola 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.

Prima di applicare Kutools for Excel, Per favore scaricalo e installalo prima.

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.

  Se vuoi avere una prova gratuita (30-day) di questa utilità, fare clic per scaricarlo, quindi andare ad applicare l'operazione secondo i passaggi precedenti.


Aggiungi il testo al centro delle celle selezionate con Kutools per Excel


I migliori strumenti per la produttività in ufficio

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

  • Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
  • Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
  • Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
  • Più di 300 potenti funzionalità. Supporta Office/Excel 2007-2021 e 365. Supporta tutte le lingue. Facile implementazione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
scheda kte 201905

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
fondo officetab
Commenti (1)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
Mi è piaciuto molto il codice, fantastico. Grazie.
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite

Seguici

Copyright © 2009 - www.extendoffice.com. | Tutti i diritti riservati. Offerto da ExtendOffice, | Mappa del sito
Microsoft e il logo Office sono marchi o marchi registrati di Microsoft Corporation negli Stati Uniti e / o in altri paesi.
Protetto da Sectigo SSL