VBA怎么编程序：[4]用宏删除空工作表

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

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

3、在模块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

4、执行该宏

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