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 

這將返回單元格的值。有沒有辦法獲得細胞的地址？！

預先感謝您。

Answer 1

使用此代替Debug.Print Arr(R, C)

Debug.Print Cells(R+2, C+1).Address(1,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