文章介紹excel中vba刪除工作表的方法，并通過兩個案例來具體理解vba代碼。
上一篇文章我們介紹了使用excel的基礎操作來刪除工作表。本文給大家分享vba刪除工作表的代碼寫法。
vba刪除工作表案例一：刪除一張表以外的所有工作表
如下圖所示：這一個excel工作薄包含多張工作表，如何使用vba刪除 “IT部落窩論壇”以外的工作表呢？右邊截圖就是使用VBA代碼刪除后的效果，整個工作薄就只剩下一張工作表：IT部落窩論壇。
下面是具體的vba刪除工作表操作步驟：
第一，按下ALT+F11，打開VBE編輯器。
第二，單擊菜單：插入——模塊，插入一個模塊，并復制下面的代碼到代碼輸入區：
Sub vba刪除工作表()
Application.DisplayAlerts = False
Dim sht As Object
For Each sht In ThisWorkbook.Worksheets
If sht.Name <> "
IT部落窩論壇" Then
sht.Delete
End If
Next
Application.DisplayAlerts = True
End Sub
第三，單擊上面截圖所示的工具欄上面那個綠色的“運行”命令，excel就會自動刪除“
IT部落窩論壇”以外的所有工作表。
從兩篇刪除工作表方法的文章對比，我們可以清楚的看到，如果工作表很多的情況，使用VBA刪除工作表，效率會更加高效。而且代碼可以隨時調用運行，減少手工操作。
vba刪除工作表案例二：逐一提示刪除工作表
錄制代碼的方法參考上面介紹，下面這一段代碼運行的結果是出現一個提示框，要求輸入工作表名稱，如果輸入的工作表名正確，excel就刪除對應的工作表，如果輸入的工作表不正確，excel返回消息框提示：您要刪除的工作表不存在。
Sub vba刪除工作表()
Dim ws As Worksheet
Dim str As String
str = Application.InputBox(prompt:="輸入需要刪除的工作表：", Title:="刪除工作表", Default:="sheet1", Type:=2)
On Error GoTo back
Set ws = Worksheets(str)
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
Exit Sub
back:
MsgBox "您要刪除的工作表不存在！"
End Sub
上面這段vba刪除工作表的方法，如果需要經常使用，我們可以保存為宏，在需要的時候按快捷鍵ALT+F8調用，只要輸入工作表名稱即可刪除工作表。
