Excel中进行VBA编程序用宏删除空工作表的操作方法

EXCEL默认的工作表一般有三个。常常会遇到需要删除掉空的不用的删工作表。这个操作除了一步步手动，还可以通过宏来快速批量处理。今天，小编就教大家在Excel中进行VBA编程序用宏删除空工作表的操作方法。

Excel中进行VBA编程序用宏删除空工作表的操作步骤：

打开一个工作簿，本例中有三个工作表，工作表名为工资表的有数据，其它两个sheet2和sheet3为空白。

打开VBA编辑器，插入一个模块1。

在模块1中输入代码

Sub test1()Dim ws As Worksheet Application.DisplayAlerts = False For Each ws In ActiveWorkbook.Worksheets ws.Activate If ActiveWorkbook.Worksheets.Count > 1 Then If IsEmpty(ActiveSheet.UsedRange) Then '如表格为空 ws.Delete '则删除该表 End If End If Next ws Application.DisplayAlerts = TrueEnd Sub

执行该宏

两个空白的表被批量删除了。