以下のような動的な二次元配列を作りたいのですが、配列のつくり方と配列への設定方法がわかりません。 0 1 0 A本部 A部 1 B本部 B部 2 C本部 C部 以下のコーディングではエラーになります。 単純なところで躓いています。 アドバイスよろしくお願いします。（Notes以前の問題ですが） dim allAry as variant dim chkAry(1) As Variant i=0 Redim allAry(i) allAry(i) =chkAry Do While Not(doc Is Nothing) Redim Preserve allAry(i) allAry(i) =chkAry allAry(i,0) = doc.xxxx(0) ←「配列の添え字の数が不正です」のエラー allAry(i,1) = doc.yyyy(0) i = i+1 Set doc = view.GetNextDocument(doc) Loop 以上