要使用VBA刪除所有空工作表，可以按照以下步驟操作：

打開(kāi)Excel并按Alt + F11進(jìn)入VBA編輯器：

在Excel中，按下Alt + F11快捷鍵，這將打開(kāi)VBA編輯器。

插入一個(gè)新的模塊：

在VBA編輯器的“項(xiàng)目”窗口中，找到你的工作簿名稱。右鍵點(diǎn)擊該工作簿名稱，選擇“插入” > “模塊”，這將插入一個(gè)新的模塊。

粘貼代碼：

在新插入的模塊中，粘貼以下代碼：vbaSub 刪除空工作表 Application.DisplayAlerts = False For i = Sheets.Count To 1 Step 1 If Application.CountA.Cells) = 0 Then Sheets.Delete End If Next Application.DisplayAlerts = TrueEnd Sub4. 運(yùn)行宏： 關(guān)閉VBA編輯器，返回到Excel。 按Alt + F8打開(kāi)“宏”對(duì)話框。 選擇“刪除空工作表”宏，然后點(diǎn)擊“運(yùn)行”。代碼解釋： Application.DisplayAlerts = False：關(guān)閉Excel的自動(dòng)警告信息，以避免在刪除工作表時(shí)彈出確認(rèn)對(duì)話框。 For i = Sheets.Count To 1 Step 1：從最后一個(gè)工作表開(kāi)始向前遍歷所有工作表。 If Application.CountA.Cells) = 0 Then Sheets.Delete：如果工作表為空，則刪除該工作表。 Application.DisplayAlerts = True：重新開(kāi)啟Excel的自動(dòng)警告信息。這樣，所有空的工作表將被自動(dòng)刪除。