二次元配列の最初の次元のReDim Preserve (ID:87581)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 メモリ配置の都合上、Preserverでは無理でしょう。 Integer等の単純な型なら、RtlMoveMemory API等でコピーする事も できるでしょうが、String型の配列だとそういった方法も取れないので、 ひとつずつ移す必要があるかと。 もし、「A(i, j)」のような2次元配列に拘らないなら、データを 「A(i)(j)」のようなジャム配列で保持しておくのは如何でしょうか。 これなら、それぞれの要素を個別に拡張できますので。 Private A() As Variant Private Sub Form_Load() ReDim A(3) A(0) = Split("AAA BBB CCC") A(1) = Split("DDD EEE FFF") A(2) = Split("GGG HHH III") A(3) = Split("JJJ KKK LLL") Debug.Print A(2)(1) ReDim Preserve A(4) A(4) = Split("aaa bbb ccc") Debug.Print A(4)(0) End Sub