VBA实践技巧精粹007:如何判断工作表为空并删除

最新推荐文章于 2022-04-24 16:17:43 发布

weixin_30855099

最新推荐文章于 2022-04-24 16:17:43 发布

阅读量355

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/xiehui/archive/2011/04/12/2013287.html

本文介绍使用 Excel VBA 实现判断指定工作表是否为空的方法，并提供批量删除空白工作表的实用代码。

①问题提出:如何判断指定工作表为空?

解决方案:利用Excel函数CountA统计指定工作表中的非空单元格,若为0,即为空工作表.

代码:

Sub 判断指定工作表是否为空()
    If Application.WorksheetFunction.CountA(Worksheets(1).UsedRange.Cells) = 0 Then
        MsgBox "空工作表!" & "是否删除?"
        Worksheets(1).Delete
    End If
End Sub
②问题提出:如何批量删除空白工作表?

解决方案:利用上面的代码将其做成一个函数,然后在过程中进行调用.函数用来判断是否为空白表,过程用来循环操作.

Function ShIsBlank(sht As Variant) As Boolean
    If TypeName(sht) = "string" Then
        Set sht = Worksheets(sht) 'sht是工作表对象,完全可以作为Worksheets集合的参数加以利用.
    End If
    If Application.WorksheetFunction.CountA(sht.UsedRange.Cells) = 0 Then
        ShIsBlank = True
    End If

End Function
Sub 批量删除空白工作表()
    Dim sht As Worksheet
    Application.DisplayAlerts = False
    For Each sht In Sheets 'Worksheets也可以
        If ShIsBlank(sht) = True Then
            sht.Delete
        End If
    Next sht
    Application.DisplayAlerts = True
End Sub