在VBA中,，我們經(jīng)常會(huì)遇到需要檢查某個(gè)單元格區(qū)域是否為空的情形,。我們可以使用下面程序中的代碼來(lái)檢查單元格區(qū)域是否為空。

Sub CheckIfBlank()

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

        MsgBox '單元格區(qū)域不全為空單元格'

    Else

       MsgBox '單元格區(qū)域?yàn)榭?/span>'

    End If

End Sub

然而,，如果單元格區(qū)域偶然包含一個(gè)返回為空的公式,，則上述代碼不會(huì)將該單元格區(qū)域返回為空，因?yàn)樗椒祷貫榭盏膯卧瘛?/span>

要處理這個(gè)問(wèn)題,，可以使用下面的命令來(lái)檢查單元格區(qū)域是否為空，即使該單元格區(qū)域包含返回空的公式,。

Sub CheckIfBlandAdd()

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

        MsgBox '單元格都為空'

    Else

        MsgBox '單元格不全為空單元格'

    End If

End Sub

還可以使用Find方法來(lái)判斷,，如下面的代碼：

Sub CheckIfBlandAdd2()

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

        MsgBox '單元格都為空'

    Else

        MsgBox '單元格不全為空單元格'

    End If

End Sub

這將同時(shí)適用于任意連續(xù)的單元格區(qū)域。