使用Excel VBA中的ADDRESS函数填充范围数组

Question

我已经定义了一个二维范围数组，我希望通过对一组特定单元格的引用来填充这些范围（其标准是无关紧要的）。我尝试过使用下面的伪代码，但是出现了与语法相关的错误：

    Dim ArrayOfRanges() as Range
    ReDim ArrayofRanges (10,1)

    For i = 1 to 10        

    Set ArrayOfRanges(i, 0) = Range(WorksheetFunction.Address(Row(i),Column(i))
    Set ArrayOfRanges(i, 1) = Range(WorksheetFunction.Address(Row(i),Column(i))

    Next i

有谁知道如何正确填充数组？

谢谢。

Answer 1

尝试使用以下代码：

Dim ArrayOfRanges() As Range
ReDim ArrayOfRanges(10, 1)

For i = 1 To 10

    Set ArrayOfRanges(i, 0) = Cells(i, i)
    Set ArrayOfRanges(i, 1) = Cells(i, i)

Next i