获取分离范围内的值objet

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