来自范围阵列的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