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

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、点击一次上方的运行代码按钮，代码将运行，工作簿中的空白表将被全部删除。最后保存即可。