分離された範囲の値を取得する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