VBA Redim エラー

Question

前提・実現したいこと

VBAの多次元配列にて、要素数を再設定するコードを記述しています。
※配列につきましては、内容を維持したままで、行方向だけどんどん増えていく形を採用しております。

発生している問題・エラーメッセージ

ReDim Preserveにて要素数を再設定するとエラーが発生してしまいます。

実行時エラー'9'
インデックスが有効範囲にありません。

該当のソースコード

'バリアント型の配列を宣言する
Public Hairetsu() as Variant
'配列の要素数が宣言済みの場合
If Not Not Hairetsu Then
  '配列の要素数を再設定する（この行でエラーが発生してしまいます。）
  ReDim Preserve Hairetsu(1, 10)
'配列の要素数が未設定の場合
Else
  '配列の要素数を設定する
  ReDim Hairetsu(0, 10)
End If

Answer 1

行方向だけどんどん増えていく形を採用しております。

高次元配列は、最後の次元のみしか要素数を変更できません。

Dim Hairetsu() As Variant

ReDim Hairetsu(2, 2)

ReDim Preserve Hairetsu(2, 3) 'OK

ReDim Preserve Hairetsu(3, 3) '「インデックスが有効範囲にありません。」エラー

Hairetsu(列, 行) で処理して、最後に、Worksheetfunction.Transpose で行列を入れ替えるという処理になります。

下記も参考にしてください。

VBA - VBAの2次元配列の要素数を可変にしたい｜teratail

Answer 2

ReDim Preserveにて要素数を再設定するとエラーが発生してしまいます。

ReDim Preserveでは、最後の次元しか変更できません（MSDN）。

Comments

[Yoshikun_0945]

Hairetsu（○,△）の○部分を再設定する場合はどのコードが必要でしょうか？

[maisumakun]

新しい配列を別途で作って、詰め直すしかなさそうです。