【VBA】セールの値は配列に変換方法

方法一

Sub test1()
    //変数の定義
    Dim a() As Integer, iRow As Long, i As Integer
    //非空白のセールまでの行を取得
    iRow = Cells(Rows.Count, "A").End(xlUp).Row
    //動的な配列を作成
    ReDim a(iRow - 1)
    //繰り返して、セールの値を配列にセット
    For i = 1 To UBound(a)
        a(i - 1) = Range("A" & i)
    Next
End Sub

方法二

Sub test()
  //配列の定義、形は未定にする
  Dim a() As Variant
  //「A」列のA3セールから最後行（非空白）までの値は配列にセットする
  a() = Range("A3:A" & Range("A65536").End(xlUp).Row)
End Sub