Come eliminare un foglio se il nome del foglio non è in un elenco?

Supponiamo di avere un foglio di lavoro che contiene un elenco di nomi di fogli all'interno della cartella di lavoro nella colonna A, come mostrato nello screenshot sottostante, e alcuni nomi di fogli specifici nella cartella di lavoro non sono presenti nell'elenco. Ora voglio eliminare i fogli che non sono presenti nell'elenco della colonna A. Come posso risolvere rapidamente e facilmente questo compito in Excel?

Elimina i fogli che non sono in un elenco specifico con il codice VBA

Elimina i fogli che non sono in un elenco specifico con il codice VBA

Normalmente, puoi controllare i nomi dei fogli uno per uno ed eliminare quelli che non sono nell'elenco dei nomi dei fogli. Ma qui voglio parlarti di un codice VBA per gestire questa operazione. Procedi nel seguente modo:

1. Vai al foglio di lavoro che contiene l'elenco dei nomi dei fogli, quindi tieni premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic for Applications.

2. Quindi fai clic su Inserisci > Modulo e incolla il seguente codice nella finestra del Modulo.

Codice VBA: Elimina i fogli che non sono 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 sopra, A2:A6 è il riferimento di cella che contiene i nomi dei fogli; puoi modificarlo secondo necessità.

3. Successivamente, premi il tasto F5 per eseguire il codice; i fogli che non sono nell'elenco verranno eliminati immediatamente, vedi screenshot: