如何快速删除excel工作薄中空白工作表

在我的VBA操作中，我执行的是清除所有空白工作表的任务，因此需要启用宏功能，在Excel中则需允许宏的运行。

1、 同时按下“Alt”和“F11”键，启动VBE界面。?

2、 在VBE界面左侧有你打开的所有电子表格的名称，点击及要删除空白工作表的任务，然后在顶部菜单栏点击：插入——模块。

3、 边际编辑代码：在VBE界面左侧点击模块——模块1，复制以下代码至代码区。————————分割线————————?Sub 删除空白工作表()?Application.DisplayAlerts = False?Dim sh As Long?Dim i, n, m As Byte?n = Worksheets.Count?For i = n To 1 Step -1sh = Worksheets(i).UsedRange.CountIf sh = 1 ThenWorksheets(i).Delete Else: m = m + 1 End If Next?MsgBox "共删除" & n - m & "个空白工作表"?End Sub————————分割线————————