如何從工作簿中刪除名稱包含特定文字的工作表

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 次檢視

啟動你的 職業生涯

透過完成課程獲得認證

開始學習
廣告

© . All rights reserved.