Как удалить лист, если имя листа не находится в списке?

Допустим, у меня есть рабочий лист, который содержит список имен листов книги в столбце A, как показано на скриншоте ниже, и некоторые определенные имена листов книги отсутствуют в этом списке. Теперь я хочу удалить листы, которые не указаны в списке столбца A. Как я могу быстро и легко решить эту задачу в Excel?

Удаление листов, которых нет в определенном списке, с помощью кода VBA

Удаление листов, которых нет в определенном списке, с помощью кода VBA

Обычно вы можете проверять имена листов по одному и удалять те, которых нет в списке имен листов. Однако здесь я расскажу о коде VBA для решения этой задачи. Пожалуйста, выполните следующие действия:

1. Перейдите к рабочему листу, содержащему список имен листов, затем нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. Затем нажмите Вставить > Модуль и вставьте следующий код в окно Модуля.

Код VBA: Удаление листов, которых нет в списке

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

Примечание: В приведенном выше коде ссылка A2:A6 содержит имена листов, вы можете изменить её по своему усмотрению.

3. Затем нажмите клавишу F5, чтобы запустить этот код, и листы, которых нет в списке, будут немедленно удалены, см. скриншот: