Vba - 範囲配列からセルのアドレスを返す

Question

ワークシート上の範囲を読み取り、配列に配置します。

Dim Arr() As Variant 
Arr = Range("B3:G11") 
Dim R As Long 
Dim C As Long 
For R = 1 To UBound(Arr, 1) 
    For C = 1 To UBound(Arr, 2) 
     Debug.Print Arr(R, C) 
    Next C 
Next R 

これはセルの値を返します。セルのアドレスを取得する方法はありますか？

ありがとうございます。 Debug.Print Arr(R, C)

Debug.Print Cells(R+2, C+1).Address(1,1) 

の代わりに

Answer 1

使用これを一つでも範囲の配列を埋めることができます：

Dim Arr() As Range 
Dim rng As Range 
ReDim Arr(1 To Range("B3:G11").Rows.Count, 1 To Range("B3:G11").Columns.Count) As Range 
For Each rng In Range("B3:G11") 
    Set Arr(rng.Row - 2, rng.Column - 1) = rng 
Next rng 
Dim R As Long 
Dim C As Long 
For R = 1 To UBound(Arr, 1) 
    For C = 1 To UBound(Arr, 2) 
     Debug.Print Arr(R, C).Address 
    Next C 
Next R