如果工作表名称不在列表中，如何删除工作表

ms exceladvanced excel functionmicrosoft technologies更新于 2024/9/25 15:08:17

Microsoft Excel 是一款功能强大的电子表格程序，常用于数据分析、计算和信息整理。使用 Excel 时，您可能会遇到需要删除不在预定列表中的工作表的情况。本教程将指导您使用 VBA(Visual Basic for Applications)编程在 Excel 中删除工作表。在 Excel 中，VBA 允许我们自动化操作并创建独特的解决方案。我们可以快速检测并删除不在所需列表中的工作表。

如果工作表名称不在列表中，如何删除工作表

在这里，我们将首先创建一个 VBA 模块，然后运行它来完成任务。让我们看一个简单的过程，了解如何在 Excel 中删除名称不在列表中的工作表。

步骤 1

考虑任何包含工作表列表的 Excel 工作簿。

首先，右键单击工作表名称，然后选择"查看代码"以打开 VBA 应用程序。

右键单击 >"查看代码"。

步骤 2

然后点击"插入"，选择"模块"，然后将以下代码复制到文本框中。

插入 >"模块">"复制"。

示例

Sub Deletenotinlist()
    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 "Not find the sheets to be seleted", vbInformation, "Kutools for Excel"
    Else
        MsgBox "Have deleted" & cnt & "worksheets"
    End If
End Sub

代码中 A2:A6 单元格区域包含工作表名称列表