Come eliminare un foglio il cui nome non è presente in un elenco?
Supponiamo di avere un foglio di lavoro con un elenco di nomi di fogli della cartella nella colonna A, come mostrato nello screenshot seguente, e che alcuni fogli della cartella non siano inclusi in tale elenco. Come si possono eliminare rapidamente e facilmente i fogli assenti dall’elenco della colonna A in Excel?
Eliminare i fogli non presenti in un elenco specifico con codice VBA
Eliminare i fogli non presenti in un elenco specifico con codice VBA
In genere, è possibile controllare i nomi dei fogli uno per uno ed eliminare quelli non presenti nel foglio Elenco nomi. Tuttavia, di seguito viene proposto un codice VBA per automatizzare questa operazione. Procedere come segue:
1. Passa al foglio di lavoro che contiene l’elenco dei nomi dei fogli (“Elenco nomi”), quindi tieni premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic for Applications.
2. Fare clic su Inserisci > Modulo, quindi incollare il codice seguente nella finestra del Modulo.
Codice VBA: Elimina i fogli non presenti in un elenco
Sub Deletenotinlist()
'Updateby Extendoffice
Dim i As Long
Dim cnt As Long
Dim xWb, actWs As Worksheet
Set actWs = ThisWorkbook.ActiveSheet
cnt = 0
Application.DisplayAlerts = False
For i = Sheets.Count To 1 Step -1
If Not ThisWorkbook.Sheets(i) Is actWs Then
xWb = Application.Match(Sheets(i).Name, actWs.Range("A2:A6"), 0)
If IsError(xWb) Then
ThisWorkbook.Sheets(i).Delete
cnt = cnt + 1
End If
End If
Next
Application.DisplayAlerts = True
If cnt = 0 Then
MsgBox "No sheets found to delete.", vbInformation, "Kutools for Excel"
Else
MsgBox "Have deleted " & cnt & " worksheets."
End If
End Sub
Nota: nel codice precedente, A2:A6 è il riferimento di cella che contiene i nomi dei fogli; puoi modificarlo in base alle tue esigenze.
3. Premere quindi il tasto F5 per eseguire il codice: i fogli non presenti nell’elenco verranno eliminati immediatamente, come illustrato nello screenshot:
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 oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- 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 all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi