VBA技巧：当单元格区域中包含由公式返回的空单元格时，如何判断？

在VBA中，我们经常会遇到需要检查某个单元格区域是否为空的情形。我们可以使用下面程序中的代码来检查单元格区域是否为空。

Sub CheckIfBlank()

    If WorksheetFunction.CountA(Range('A1:A100')) Then

        MsgBox '单元格区域不全为空单元格'

    Else

       MsgBox '单元格区域为空'

    End If

End Sub

然而，如果单元格区域偶然包含一个返回为空的公式，则上述代码不会将该单元格区域返回为空，因为它包含公式返回为空的单元格。

要处理这个问题，可以使用下面的命令来检查单元格区域是否为空，即使该单元格区域包含返回空的公式。

Sub CheckIfBlandAdd()

    If Range('A1:A100').Rows.Count =WorksheetFunction.CountBlank(Range('A1:A100')) Then

        MsgBox '单元格都为空'

    Else

        MsgBox '单元格不全为空单元格'

    End If

End Sub

还可以使用Find方法来判断，如下面的代码：

Sub CheckIfBlandAdd2()

    If Range('A1:A100').Find('*', , xlValues, , xlByColumns,xlPrevious) Is Nothing Then

        MsgBox '单元格都为空'

    Else

        MsgBox '单元格不全为空单元格'

    End If

End Sub

这将同时适用于任意连续的单元格区域。