如果工作表名稱不在列表中如何刪除工作表

發布:未知文本批量工具

如果工作表名稱不在列表中，如何刪除工作表？

假設，我有一個工作表，其中包含工作簿中A列中工作表名稱的列表，如下面的屏幕快照所示，并且工作簿中的某些工作表名稱不在列表中，現在，我要刪除不工作表中的工作表名稱在A列的列表中。如何在Excel中快速輕松地解決此任務？

使用VBA代碼刪除不在特定列表中的工作表

通常，您可以一張一張地檢查工作表名稱，然后刪除不在工作表名稱列表中的工作表名稱。但是，在這里，我可以討論處理它的VBA代碼。請執行以下操作：

1。轉到包含工作表名稱列表的工作表，然后按住 ALT + F11 鍵打開 Microsoft Visual Basic應用程序 窗口。

2。然后點擊插頁 > 模塊，然后將以下代碼粘貼到模塊窗口。

VBA代碼：刪除不在列表中的工作表

Sub Deletenotinlist()Updateby ExtendofficeDim i As LongDim cnt As LongDim xWb, actWs As WorksheetSet actWs = ThisWorkbook.ActiveSheetcnt = 0Application.Displayalerts = FalseFor i = Sheets.Count To 1 Step -1If Not ThisWorkbook.Sheets(i) Is actWs ThenxWb = Application.Match(Sheets(i).Name, actWs.Range("A2:A6"), 0)If IsError(xWb) ThenThisWorkbook.Sheets(i).Deletecnt = cnt + 1End IfEnd IfNextApplication.Displayalerts = TrueIf cnt = 0 ThenMsgBox "Not find the sheets to be seleted", vbInformation, "Kutools for Excel"ElseMsgBox "Have deleted" & cnt & "worksheets"End IfEnd SubCopy

備注：在上面的代碼中， A2：A6 是包含工作表名稱的單元格引用，您可以根據需要進行更改。

3。然后按 F5 運行此代碼的關鍵，列表中沒有的工作表被立即刪除，請參見屏幕截圖：