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

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

　　执行该宏

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