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

名前

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

本文 はじめまして。 動的配列の二次元以上の場合、最後の次元以外の値を保持しながらの Redimは無効化とMSDNライブラリに記入されています。 ReDim Preserve Matrix(UBound(Matrix, 1) + 1, 10) は無効とありますが、これをどうしても行いたい場合はどのように すればよろしいのでしょうか？ 無理矢理な方法は考え付きましたが Dim a() As String Dim b() As String Private Sub Form_Load() ReDim a(0, 1000) For i = 1 To 100 add Next i End Sub Sub add() ReDim b(UBound(a) + 1, UBound(a, 2)) For i = 0 To UBound(a) For j = 0 To UBound(a, 2) b(i, j) = a(i, j) Next j Next i ReDim a(UBound(a) + 1, UBound(a, 2)) a = b End Sub 毎回上コードを用いて繰り返しますと処理速度が格段に遅くなります。 値を保有しながらの二次元配列の最後以外のReDim Preserveで良い方法 等ございませんでしょうか？ どうかよろしくお願いいたします。