配列数を後から入力する（動的配列）

通常，配列は

Dim hairetsu(20) As String

などとして定義して使うが時々配列数をExcelシートの列数などを数えてその総数を灰列数にしたい場合などがある．こういった場合，以下のようにします(いわゆる動的配列というやつです)。

【事例】
Sub 配列()

Dim hairetsu() As String
Dim counter As Integer
Dim i As Integer
count = Range("A1").CurrentRegion.Rows.Count
Redim hairetsu(count - 1)
For i = 0 to count - 1
hairetsu(i) = cells(i + 1, "A").Value
Next

End Sub

配列数がわかっていない場合には，上記のようにすると配列数も完璧にわかるようになる．便利だー．