获取分隔范围对象上的值

Question

是否有比循环更好的方法来获得分离的范围值到变体中?

Dim vntValues As Variant  
Set rg = Range("$D$3:$D$7,$D$9:$D$21")  
vntValues = rg.Value  
Debug.Print UBound(vntValues)  

输出是5，而我认为18是正确的。

Answer 1

类似

Dim vntValues As Variant
Dim rng2 As Range
Set rg = Range("$D$3:$D$7,$D$9:$D$21")
For Each rng2 In rg.Areas
    vntValues = rng2.Value2
    Debug.Print UBound(vntValues)
Next