vba for文 arr(n)

Question

for文が回るごとに配列arrを拡張させてarr(0)~arr(n)まで値を入れていくような処理を組みたいのですがどのようにしたらよいのでしょうか？

上手くいかなかったお試し版↓
Dim Arr() As String: ReDim Arr(0)
Dim i As Long: i = 0
Dim num As Long

num = UBound(Arr) + i
ReDim Arr(num)
Arr(num) = i + 1
i = i + 1

Answer 1

[書き方について]

そのままソースコードを貼り付けるのは読みづらい ( インデントなしで どのブロックかわかりづらい。 ) ので、

質問や回答のときの EDIT ( 書き込みをするところ ) の上にあるボタン群の中のひとつ、

"コード" ( "</>" となっている。 ) を押して、

"ここに言語を入力" の部分を その言語に書き換える。( 例: VBA )

次に "コード" とある部分を書き込みたいソースコードに書き換える。

これで書くと、インデントが反映されるので、読みやすくなりますよ。

---

[質問に関して]

VBA では ReDim をあまり使っていないのでイメージしづらいです。

なので、

ソースコードは当たり前として、実際の実行結果と自分が予測した結果 を載せる。

例1:
ループ中に For文があるので 複数回 ( 指定回数 ) 分岐処理されるはずが、
一度しか動いていない。

例2:
予測: 1,2,3,4...となる
実際: 1,3,6,20... となる

Answer 2

ReDim Preserve Arr(num)とすることで、配列の内容を保持したままnumによって与えられた範囲まで拡大しますよ