獲取分離範圍內的值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