利用VBA批量删除EXCEL中的空白工作表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。