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

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

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

3、边际编辑代码：在VBE界面左侧点击模块——模块1，复制以下代码至代码区。————————分割线————————Sub 删除空白工作表()App造婷用痃lication.DisplayAlerts = FalseDim sh As LongDim i, n, m As Byten = Worksheets.CountFor i = n To 1 Step -1sh = Worksheets(i).UsedRange.CountIf sh = 1 ThenWorksheets(i).Delete Else: m = m + 1 End If NextMsgBox "共删除" & n - m & "个空白工作表"End Sub————————分割线————————

4、点击：保存——运行结果如下