1、将excel另存为启用宏的工作簿


2、打开这个启用宏的工作簿,点击开发工具--Visual Basic 进入代码编辑页面。

3、点击插入--模块,插入一个模块1。

4、双击模块1,进入代码编辑区。

5、复制以下代码,并粘贴在在代码编辑区。
Sub shanchukongbaibiao()
Application.DisplayAlerts = False
Dim Sh1 As Worksheet
For Each Sh1 In Sheets
If IsEmpty(Sh1.UsedRange) Then Sh1.Delete
Next
Application.DisplayAlerts = True
End Sub

6、点击一次上方的运行代码按钮,代码将运行,工作簿中的空白表将被全部删除。最后保存即可。

