如何在工作簿中刪除特定工作表（如果存在）

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

步驟 3

然後單擊 F5 執行模組，指定要刪除的工作表，然後單擊“確定”。然後您可以看到將顯示訊息。

F5 > 指定名稱 > 確定。

結論

在本教程中，我們使用了一個簡單的示例來演示如何在 Excel 中刪除工作簿中存在的特定工作表，以突出顯示特定資料集。

更新於: 2023年7月20日

134 次檢視

開啟您的 職業生涯

透過完成課程獲得認證

開始學習
廣告