Sub delSheet()
Dim x As Worksheet
Application.DisplayAlerts = False
For Each x In Sheets
If IsEmpty(x.UsedRange) And x.Shapes.Count = 0 Then x.Delete
Next x
End Sub
程序如上,笔者使用EXCEL2007,上百个工作表中删除空白无内容的SHEET。
Sub delSheet()
Dim x As Worksheet
Application.DisplayAlerts = False
For Each x In Sheets
If IsEmpty(x.UsedRange) And x.Shapes.Count = 0 Then x.Delete
Next x
End Sub
程序如上,笔者使用EXCEL2007,上百个工作表中删除空白无内容的SHEET。