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

Posted 2021-01-29 lnsylt

方法一

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

方法二

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