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