如何从工作簿中删除名称包含特定文本的工作表

Excel 是一款强大的数据分析和处理工具，我们偶尔需要通过删除不需要的工作表来整理我们的工作簿。如果您有一个包含多个工作表的大型工作簿，并且希望快速删除满足某些条件的工作表，本教程将逐步引导您完成该过程。在本文中，我们将了解一种快速简便的方法，根据工作表名称中的文本删除工作表。在处理庞大的数据集或包含多个工作表的工作簿时，此方法可以节省大量时间。

从工作簿中删除名称包含特定文本的工作表

在这里，我们将首先创建一个 VBA 模块并输入特定文本以完成任务。因此，让我们了解一个简单的过程，了解如何删除工作簿中名称包含特定文本的工作表。

步骤 1

考虑任何 Excel 工作簿，其中包含多个具有相似名称的工作表，如下面的图像所示。

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

步骤 2

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

插入 > 模块 > 复制。

Sub Deletebyname()
    Dim shName As String
    Dim xName As String
    Dim xWs As Worksheet
    Dim cnt As Integer
    shName = Application.InputBox("Enter the specific text:", "Delete Sheet 
Contain", _
                    ThisWorkbook.ActiveSheet.Name, , , , , 2)
    If shName = "" Then Exit Sub
    xName = "*" & shName & "*"
    MsgBox xName
    Application.DisplayAlerts = False
    cnt = 0
    For Each xWs In ThisWorkbook.Sheets
        If xWs.Name Like xName Then
            xWs.Delete
            cnt = cnt + 1
        End If
    Next xWs
    Application.DisplayAlerts = True
    MsgBox "Have deleted" & cnt & "worksheets", vbInformation, "Delete Sheet 
Contain"
End Sub

步骤 3

然后单击 F5 运行模块，输入要删除的文本，然后单击“确定”以完成任务。

F5 > 文本 > 确定。

结论

在本教程中，我们使用了一个简单的示例来演示如何在 Excel 中删除工作簿中名称包含特定文本的工作表，以突出显示特定数据集。

更新于: 2023-07-12

86 次查看

启动你的 职业生涯

通过完成课程获得认证

开始学习
广告