如何删除不在列表中的工作表名称？

比如说，我有一个工作表，在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 键运行此代码，不在列表中的工作表会立即被删除，如下图所示：