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

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

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

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

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

5、复制以下代码，并粘贴在在代码编辑区。Sub shanchukongbaibiao()Appl坡纠课柩ication.Disp造婷用痃layAlerts = False Dim Sh1 As Worksheet For Each Sh1 In Sheets If IsEmpty(Sh1.UsedRange) Then Sh1.Delete Next Application.DisplayAlerts = TrueEnd Sub

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