配列を動的に確保する for VBA
ExcelVBAで配列を動的に確保するには以下の感じです。
Sub MacroY() Dim strA() As String Dim int_i As Integer For int_i = 0 To 10 Step 1 ReDim Preserve strA(int_i) strA(int_i) = "AAA" & int_i Next For int_i = 0 To UBound(strA) Step 1 Debug.Print strA(int_i) Next End Sub
まず、『Dim strA() As String』で配列として宣言して、『ReDim Preserve strA(int_i)』で配列を拡張してから、『strA(int_i) = "AAA" & int_i』で配列にデータを格納します。
尚、ReDimでPreserveを指定しないと拡張されるたびに、配列の中身がクリアされてしまいます。
また、配列の最大インデクスは『UBound(strA)』で求めることができます。
ちなみに、Debug.Printのプリント結果は、イミディエイトウインドウに表示されます。