VBA 定数式が必要です。

Question

動的配列で、Redimで配列要素を定義したところで、「定数式が必要です」と表示
されてしまうのですが、なぜでしょうか？

Sub sample()
    Dim regionArr As Variant

    regionArr = Range("A1").CurrentRegion
    

    Dim lastRow As Long
    Dim i As Long
    
    lastRow = UBound(regionArr)
    Debug.Print lastRow
    
    Dim aRow(lastRow) As Variant　`ここで定数式が必要ですと出てしまう。

    For i = 1 To lastRow
        aRow(i) = Cells(i, 1).Value
    Next i

    Debug.Print aRow(10)

End Sub

Answer 1

Dim aRow(lastRow) As Variant

↓

Dim aRow() As Variant
ReDim aRow(lastRow)

これでどうでしょうか？

Answer 2

lastRowは実行する前は決まってませんよね。
つまり要素数が固定でないということです。要素数が固定でない配列は動的配列になります。

Sub sample()
    Dim regionArr As Variant

    regionArr = Range("A1").CurrentRegion
    

    Dim lastRow As Long
    Dim i As Long
    
    lastRow = UBound(regionArr)
    Debug.Print lastRow
    
    Dim aRow() As Variant  '動的配列として宣言
    ReDim aRow(lastRow)    'Redim で要素数を決定

    For i = 1 To lastRow
        aRow(i) = Cells(i, 1).Value
    Next i

    Debug.Print aRow(10)

End Sub

と回答を書いて質問文を見直してみたら、

動的配列で、Redimで配列要素を定義したところで、

ん？分かっているのに、そうしてないだけでは。