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

方法一

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