動的配列を使う
ReDimで動的配列を確保し、Preserveで既存の値を残して末尾を増やします。
実行前に確認
- PreserveなしでReDimすると要素は初期化されます。小さくすると切り落とした要素は失われます。
- Preserveで変更できるのは最後の次元の上限です。行数を増やす二次元配列へそのまま応用しないでください。
- Excel実機での動作は未確認です。コピーした練習用ブックで試してください。
1サンプルコード
Option Explicit
Sub Example7004()
Dim names() As String
ReDim names(1 To 2)
names(1) = "東京"
names(2) = "大阪"
ReDim Preserve names(1 To 3)
names(3) = "福岡"
MsgBox names(1) & "・" & names(2) & "・" & names(3)
End Sub図で見る動的配列を使うの流れ
イメージ図ReDimで動的配列を確保し、Preserveで既存の値を残して末尾を増やします。
入力・開始時
names(1)=東京・names(2)=大阪
実行する処理
ReDim Preserveで1～3に広げ、3番目へ福岡
結果
東京・大阪・福岡
セルの値や既存のファイルを変更しない例です。
コードの処理を説明する模式図です。実際の画面や実行結果を撮影したものではありません。
使い方・実行手順を確認する4つの手順で、コードの使い方を確認できます
- 1
デスクトップ版Excelで練習用ブックを.xlsm形式で保存します。Alt＋F11→［挿入］→［標準モジュール］を選び、空のモジュールの先頭にこの例全体を貼り付けます。
- 2
書き換えは不要です。まず例の値のままで試し、値や変数名を変える場合は同じ名前の箇所も揃えます。
- 3
Example7004のSub内にカーソルを置き、F5キーで実行します。
- 4
配列の1・2番目を保持したまま3番目が増え、「東京・大阪・福岡」と表示されます。