如何在 Excel 中根據單元格值刪除工作表？

Excel 是一個用於組織和分析資料的有效工具，您可能偶爾需要根據預定的條件從工作簿中刪除特定的工作表。本教程將向您展示如何自動刪除與某些單元格值條件匹配的工作表。

手動刪除工作表可能需要一段時間，尤其是在處理包含大量工作表的大型工作簿時。為了根據特定單元格值刪除工作表，我們可以使用 Excel 中的 VBA（Visual Basic for Applications）程式語言。

根據單元格值刪除工作表

在這裡，我們將首先建立一個 VBA，然後使用它來完成任務。因此，讓我們來看一個簡單的過程，瞭解如何在 Excel 中根據單元格值刪除工作表。

步驟 1

考慮任何具有多個工作表的 Excel 工作簿。

首先，右鍵單擊任何工作表名稱，然後選擇“檢視程式碼”以開啟 VBA 應用程式。然後單擊“插入”，選擇“模組”，並將以下程式碼複製到文字框中。

右鍵點選 > 檢視程式碼 > 插入 > 模組 > 複製。

程式碼

Sub deletesheetbycell()
   Dim shName As String
   Dim xName As String
   Dim xWs As Worksheet
   Dim cnt As Integer
   shName = Application.InputBox("Input the text to delete the sheets based on:", "Delete based value", _
                                    "", , , , , 2)
   Application.DisplayAlerts = False
   cnt = 0
   For Each xWs In ThisWorkbook.Sheets
      If xWs.Range("A1").Value = shName Then
         xWs.delete
         cnt = cnt + 1
      End If
   Next xWs
   Application.DisplayAlerts = True
   MsgBox "Have deleted" & cnt & "worksheets", vbInformation, "Delete based value"
End Sub

步驟 2

現在將工作表另存為宏啟用模板，然後單擊 F5 執行模組。然後在提示中輸入輸入文字，然後單擊“確定”以完成任務。您將看到一個確認提示。

儲存 > F5 > 輸入文字 > 確定。

結論

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

更新於: 2023年7月10日

248 次檢視

啟動您的 職業生涯

透過完成課程獲得認證

開始
廣告
© . All rights reserved.