如何根据工作簿中名称包含特定文本删除工作表？

假设您有一个包含多个工作表的工作簿，现在您想通过标签名称删除这些工作表。例如，如果工作表名称包含特定文本“KTE”，则删除它，并得到如下截图所示的结果。如何立即删除名称包含特定文本的工作表，而无需逐个删除它们呢？

使用VBA代码删除名称包含特定文本的工作表

使用VBA代码删除名称包含特定文本的工作表

在这里，我将为您创建一个VBA代码，以通过名称删除工作表，请按照以下步骤操作：

1. 按住 ALT + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 单击 插入 > 模块，并在模块窗口中粘贴以下代码。

VBA代码：删除名称包含特定文本的工作表

Sub Deletebyname()
'Updateby Extendoffice
    Dim shName As String
    Dim xName As String
    Dim xWs As Worksheet
    Dim cnt As Integer
    shName = Application.InputBox("Enter the specific text:", "Kutools for Excel", _
                                    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, "Kutools for Excel"
End Sub

3. 然后按 F5 键运行此代码，会弹出一个提示框，提醒您输入要基于删除工作表标签的特定文本，参见截图：

4. 然后单击 确定，所有名称包含指定文本“KTE”的工作表都会被一次性删除。参见截图：

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！