如何检查范围变量中的单元格是否为空？

Question

为什么即使 B1 到 B3 单元格中的任何一个单元格中都没有值，单元格 A1 中的结果也会返回“2”？

子 CheckEmpty()

Dim rng As Range

Set rng = Range("$B$1:$B$3")
Debug.Print rng.Address

If IsEmpty(Range(rng.Address)) Then
    Range("A1").Value = "1"
    Else
    Range("A1").Value = "2"
End If

结束子

我试过在单元格 b1、b2 或 b3 中包含值，但即使单元格为空，它们的结果也会返回 0。

Answer 1

使用WorksheetFunction.CountA() ( https://learn.microsoft.com/en-us/office/vba/api/excel.worksheetfunction.counta ) function

If WorksheetFunction.CountA(rng) = 0 Then
    Range("A1").Value = "1"
Else
    Range("A1").Value = "2"
End If