如何删除工作簿中存在的特定工作表？

如果某个工作簿中存在特定的工作表，您会如何删除它呢？通常情况下，您需要先查找并确认其是否存在，然后手动删除。在这里，我将介绍一种简单的方法，可以直接删除 Excel 文件中存在的指定工作表（如果存在）。

使用 VBA 代码删除工作簿中存在的特定工作表

使用 VBA 代码删除工作簿中存在的特定工作表

以下 VBA 代码可以帮助您删除工作簿中存在的指定工作表，请按照以下步骤操作：

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

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

VBA 代码：删除工作簿中存在的特定工作表

Sub Test()
'Updateby Extendoffice
    Dim xWs As Worksheet
    Dim sheetName As String
    sheetName = Application.InputBox("Input Sheet Name:", "Kutools for Excel", _
                                    "sheet1", , , , , 2)
    Application.DisplayAlerts = False
    Err.Clear
    On Error Resume Next
    Set xWs = Sheets(sheetName)
    If Err <> 0 Then
        MsgBox "The'" & sheetName & "'" & "does not exist!", vbInformation, "Kutools for Excel"
        Exit Sub
    Else
        xWs.Delete
        MsgBox "The'" & sheetName & "'" & "has been deleted!", vbInformation, "Kutools for Excel"
    End If
    Application.DisplayAlerts = True
End Sub

3. 然后按 F5 键运行此代码，会弹出一个提示框，提醒您输入要检查是否存在的工作表名称，如下截图所示：

4. 然后单击 确定 按钮：

(1.) 如果该工作表存在，它将立即被删除，如下截图所示：

(2.) 如果该工作表不存在，将弹出一个提示框提醒您，如下截图所示：

使用 Kutools AI 解锁 Excel 魔法

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

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