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