如何基于Excel中的單元格值刪除工作表？
假設我在一個工作簿中有多個工作表，現(xiàn)在，我想根據(jù)單元格值刪除這些工作表。 例如，如果特定單元格A1包含文本“ KTE”，則需要立即刪除單元格A1具有此文本的所有工作表。 本文可能會幫助您在Excel中處理此任務。
使用VBA代碼根據(jù)單元格值刪除工作表
使用VBA代碼根據(jù)單元格值刪除工作表在這里，我將為您介紹一個代碼，以刪除特定單元格具有特定值的所有工作表，請執(zhí)行以下操作：
1. 按住 ALT + F11 鍵打開 Microsoft Visual Basic應用程序 窗口。
2。 點擊 插頁 > 模塊，然后將以下代碼粘貼到 模塊 窗口。
VBA代碼：根據(jù)單元格值刪除工作表：
Sub deletesheetbycell()Updateby ExtendofficeDim shName As StringDim xName As StringDim xWs As WorksheetDim cnt As IntegershName = Application.InputBox("Input the text to delete the sheets based on:", "Kutools for Excel", _"", , , , , 2)Application.Displayalerts = Falsecnt = 0For Each xWs In ThisWorkbook.SheetsIf xWs.Range("A1").Value = shName ThenxWs.deletecnt = cnt + 1End IfNext xWsApplication.Displayalerts = TrueMsgBox "Have deleted" & cnt & "worksheets", vbInformation, "Kutools for Excel"End SubCopy備注：在上面的代碼中， A1 是包含要刪除工作表所基于的某些文本的特定單元格。
3. 然后按 F5 鍵以運行此代碼，并彈出一個提示框，提醒您輸入要基于其刪除圖紙的特定值，請參見屏幕截圖：
4。 然后點擊 OK 按鈕，單元格A1中具有文本KTE的所有工作表都被立即刪除。 看截圖：
最佳辦公生產(chǎn)力工具
將小時轉化為分鐘 Kutools for Excel!準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節(jié)省時間的工具。 簡化復雜的任務并像專業(yè)人士一樣瀏覽數(shù)據(jù)。 以閃電般的速度體驗 Excel！
為什么需要 Kutools for Excel
