使用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