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

ms exceladvanced excel functionmicrosoft technologies更新于 2024/9/26 12:28:17

Microsoft Excel 是一款功能强大的程序，可帮助用户高效地组织、分析和处理数据。处理包含多个工作表的大型工作簿时，删除不再需要的某些工作表的功能非常有用。

本教程将教您如何创建一个简单的 VBA(Visual Basic for Applications)代码，用于检查 Excel 工作簿中是否存在特定工作表，并在检测到后将其删除。

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

在这里，我们将首先创建一个 VBA 模块，然后运行它来完成任务。让我们看一个简单的过程，了解如何在 Excel 工作簿中删除特定工作表(如果该工作表已存在)。

步骤 1

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

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

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

步骤 2

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

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

示例

Sub Test()
    Dim xWs As Worksheet
    Dim sheetName As String
    sheetName = Application.InputBox("Input Sheet Name:", "Delete Specific Sheet", _
                                    "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, "Delete Specific Sheet"
        Exit Sub
    Else
        xWs.Delete
        MsgBox "The'" & sheetName & "'" & "has been deleted!", vbInformation, "Delete Specific Sheet"
    End If
    Application.DisplayAlerts = True
End Sub