【Excel VBA】刪除指定工作表外所有工作表

VBA刪除其他工作表

當Excel中有很多工作表，想只保留裡面指定的一張工作表，將其餘工作表刪除，該怎麼做呢？

輸入巨集

※輸入以下指令※

Sub 刪除其他工作表()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> “資料” Then
ws.Delete
End If
Next
End Sub

執行巨集

點選「開發人員」-「巨集」或按下「Ctrl」+「F8」快捷鍵，並「執行」巨集。

執行後則保留「資料」工作表，並將其餘工作表全數刪除。

語法說明

Dim ws As Worksheet
‘宣告「ws」變數為「工作表」
For Each ws In Worksheets
‘For Each句重複操作，對所有工作表進行重複處理
If ws.Name <> “資料” Then ws.Delete
‘如果工作表名稱不等於資料則刪除工作表

其他文章分享