VBA ２次元動的配列で、行数を順次増やす方法について

###前提・実現したいこと
現在、２次元の動的配列において、順次行数、列数を増やすマクロを作成しようとしています。

###発生している問題・コード
具体的には、Arrで定義した２次元配列において、もし、現在の配列の列数が足りない場合は、以下のコードで列数を増やしていきます。

VBA
1ReDim Preserve Arr(UBound(Arr, 1), UBound(Arr, 2) + 1)

同様に、現在の配列の行数が足りない場合は、以下のコードで増やそうとしています。

VBA
1ReDim Preserve Arr(UBound(Arr, 1) + 1, UBound(Arr, 2))

が、上記の書き方で列数については増えていくものの、行数については上記のコードは無視されてしまいます。
（上記のコードに到達すると、ループから抜けてしまいます）
列側は順調に拡張していけるのですが、何故行数側は上記のコードでこけてしまうのでしょうか。
全体のコードは以下になります。

VBA
1    Dim Arr() As String: ReDim Arr(1, 1)
2                    For Each r In Split(Node2.Text, vbLf)
3                        For Each c In Split(r, ",")
4                                If UBound(Arr, 2) < j Then
5                                    ReDim Preserve Arr(UBound(Arr, 1), UBound(Arr, 2) + 1)
6                                          Arr(i, j) = c
7                                        Else
8                                           If UBound(Arr, 1) < i Then
9                                            Debug.Print ("行の数=" & UBound(Arr, 1))
10                                         '↓ここでコードがループから抜けてしまう
11                                           ReDim Preserve Arr(UBound(Arr) + 1, UBound(Arr, 2))
12                                              Arr(i, j) = c
13                                            Else
14                                              Arr(i, j) = c
15                                       End If
16                                End If
17                        j = j + 1
18                        Next
19                        j = 0
20                        i = i + 1
21                    Next

ご助言いただければ幸いです。

宜しくお願いいたします。

行動規範の内容に同意します

回答2件

ベストアンサー

下記サイトに解説があるように、ReDim Preserveで要素数を変更できるのは、最後の要素に限られます。
http://www.vba-ie.net/programing/arrangement.html
つまりデータを維持したまま列数は動的に増やせますが、行数は増やせないということになります。

というわけで先に行数を決めてしまい、列数のみ可変とすれば良いと思います。

VBA
1Dim rows() As String
2Dim Arr() As String
3    
4rows = Split(csv, vbLf)
5ReDim Arr(UBound(rows), 1)
6    
7i = 0
8For Each r In rows
9    j = 0
10    For Each c In Split(r, ",")
11        If j + 1 > UBound(Arr, 2) Then
12            ReDim Preserve Arr(UBound(Arr, 1), UBound(Arr, 2) + 1)
13        End If
14        Arr(i, j) = c
15        j = j + 1
16    Next
17    i = i + 1
18Next