在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