VBA - 通過循環定義範圍變量

Question

我想知道是否可以通過for..next循環定義範圍變量？

類似的東西

Public Sub DefineRanges() 
Dim i As Long 
Dim rngLine1, rngLine2 As Range 

For i = 1 To 2 
    Set Replace("rngLinex", "x", i) = ThisWorkbook.Sheets("Sheet1").Range("A" & i) 
Next i 
End Sub 

或類似的

Public Sub DefineRanges() 
Dim i As Long 
Dim rngLine1, rngLine2 As Range 

For i = 1 To 2 
    Set rngLine & i = ThisWorkbook.Sheets("Sheet1").Range("A" & i) 
Next i 
End Sub 

預先感謝您。

Answer 1

由於@JohnColeman說明使用範圍的數組：

Sub defineranges() 
Dim i As Long 
Dim RngArr(1 To 2) As Range 

For i = 1 To 2 
    Set RngArr(i) = ThisWorkbook.Worksheets("Sheet1").Range("A" & i) 
Next i 

For i = 1 To 2 
    Debug.Print RngArr(i).Value 
Next i 
End Sub