目次
配列とは、同じ種類のデータを保持する変数のことです。 データが1行または1列しかない場合は1次元配列と呼ばれますが、複数の行と列がある場合は2次元配列と呼ばれます。 ここでは ReDim を使用して、VBAで配列のサイズを変更することができます。 さらに、この方法では プリザーブ キーワードと ReDim 古いデータをそのまま残すために、この記事で紹介するのは 2 のクイックメソッド" リディムプリザーブ " a 2次元配列 において エクセルブイビーエー .
練習用ワークブックをダウンロードする
マクロでReDim Preserve 2D.xlsm
Excel VBAで2次元配列をReDimする2つの便利な方法
から作成したベースデータセットです。 2次元配列 まず、3 行 2 列の配列を作成します。 そして、この配列にもう 1 列追加します。 このとき、" リディムプリザーブ 「さらに、これを使わないとどうなるかをデモします。
デフォルトでは、配列の最後の次元（つまり、列や上限）しかサイズ変更できません。 ここでは、配列を転置してから最後の次元を変更し、もう一度転置して、配列の両方の次元をサイズ変更することにします。 2次元配列 をExcel VBAで作成します。
1.2次元配列の最終次元を保持するReDim
まず、以下のように定義します。 2次元配列 をダイナミックとする。 ReDim ステートメントで、3行2列の配列を作成します。 最後に ReDim ステートメントを再度 プリザーブ キーワード を使用して、2次元配列の上限値を増加させます。
ステップス
- はじめに を押してください。 ALT+F11 を表示させることができます。 VBAモジュール ウィンドウで行います。 デベロッパー タブ → 選択 ビジュアルベーシック .
- では、その中から インサート タブ → 選択 モジュール ここにVBAのコードを打ち込みます。
- 次に、次のコードを モジュール ウィンドウに表示されます。
Sub Redim_Preserve_2D_Array_Row() Dim Our_Array() As Variant ReDim Our_Array(1 To 3, 1 To 2) Our_Array(1, 1) = "レイチェル" Our_Array(2, 1) = "ロス" Our_Array(3, 1) = "ジョーイ" Our_Array(1, 2) = 25 Our_Array(2, 2) = 26 Our_Array(3, 2) = 25 Range("C6:D8").Value = Our_Array End Sub 
VBAのコードブレイクダウン
- まず サブプロシジャ " Redim_Preserve_2D_Array_Row ".
- 次に、変数 私たちの配列 を動的配列とする。
- 次に，配列のサイズを定義する． 下限値は 3 であり、上限は 2 であり、どちらもスタートは 1 .
- そして、配列に値を代入する。
- その後、値を入力し C6:D8 セルレンジ
- その後、コードを実行します。
- だから セーブ その モジュール を押してください。 実行 .
- その結果、定義されたセル範囲に値が返されます。 このことから、" レイチェル 「は行に 1 および列 1 の位置と定義された( 1,1 ) をVBAコードに追加してください。
- では、配列のサイズを変更します。
- そこで、先ほどのコードにこれを追加し、最初の Range.Valueステートメント さらに、このコードがどのように見えるかは、以下のスナップショットで見ることができます。
ReDim Our_Array(1 To 3, 1 To 3) Our_Array(1, 3) = "Texas" Our_Array(2, 3) = "Mississippi" Our_Array(3, 3) = "Utah" Range("C6:E8").Value = Our_Array 
- ここでは、上限を( 1 への 2 ) から ( 1 への 3 )による 1 .
- そして、配列に値を追加しています。
- このコードを実行すると、以前の値が保存されていないことがわかります。 以前の値に対して空白が返されます。
- さて、これを解決するために Preserve キーワード に入っています。 ReDimステートメント .
- 最後に、私たちの完全なコードはこうなります。
Option Explicit Sub Redim_Preserve_2D_Array_Row() Dim Our_Array() As Variant ReDim Our_Array(1 To 3, 1 To 2) Our_Array(1, 1) = "Rachel" Our_Array(2, 1) = "Ross" Our_Array(3, 1) = "Joey" Our_Array(1, 2) = 25 Our_Array(2, 2) = 26 Our_Array(3, 2) = 25 ReDim Preserve Our_Array(1 To 3, 1 To 3) Our_Array(1, 3) = "Texas" Our_Array(2, 3) = "Mississippi" Our_Array(3, 3) = "Utah" Range("C6:E8").Value = 2.5 5VOur_Array End Sub 
- さて、もし私たちが 実行 を実行すると、このような出力になります。 このように、" リディムプリザーブ " の最後の次元になります。 2次元配列 をExcel VBAで作成する方法です。 さて、次の方法では、" リディムプリザーブ " と入力し、配列の両次元をリサイズします。
続きを読む Excelで列から配列に一意な値を取得するVBA（3つの基準）
類似の読み物
- Excelでテーブルの配列に名前を付ける方法（簡単な手順付き）
- CSVファイルを配列に読み込むExcel VBA（理想的な4つの例）
- Excel VBAで範囲を配列に変換する方法(3つの方法)
- Excel VBA: 配列から重複を取り除く（2例）
2.ReDim Preserve Both Dimensions 2D Array in Excel VBA
最後の方法では、サイズを変更する手順と" リディムプリザーブ " は 2次元配列 ここでは VBA トランスポーズ 関数で配列の下限のサイズを変更しようとした場合、最初のメソッドで " 添え字が範囲外 " というエラーが発生します。 さて、早速ですが、これを修正して目的を達成するための方法を考えてみましょう。
ステップス
- まず最初に。 のように、最初の方法で を表示させます。 モジュール ウィンドウに表示されます。
- 次に、最初のコードに次の行を追加します。
Our_Array = Application.Transpose(Our_Array) ReDim Preserve Our_Array(1 To 3, 1 To 4) Our_Array = Application.Transpose(Our_Array) Our_Array(4, 1) = "Monica" Our_Array(4, 2) = 26 Our_Array(4, 3) = "New Mexico" Range("C6:E9").Value = Our_Array - さらに、最終的なメソッドのコードは次のようになります。
Option Explicit Sub ReDim_Preserve_2D_Array_Both_Dimensions() Dim Our_Array() As Variant ReDim Our_Array(1 To 3, 1 To 2) Our_Array(1, 1) = "Rachel" Our_Array(2, 1) = "Ross" Our_Array(3, 1) = "Joey" Our_Array(1, 2) = 25 Our_Array(2, 2) = 26 Our_Array(3, 2) = 25 ReDim Preserve Our_Array(1 To 3, 1 To 3) Our_Array(1, 3) = "Texas" Our_Array(2, 3) = "Mississippi" Our_Array(3, 3) = "Utah" Our_Array = "テキサス "です．Application.Transpose(Our_Array) ReDim Preserve Our_Array(1 To 3, 1 To 4) Our_Array = Application.Transpose(Our_Array) Our_Array(4, 1) = "Monica" Our_Array(4, 2) = 26 Our_Array(4, 3) = "New Mexico" Range("C6:E9").Value = Our_Array End Sub. 
VBAのコードブレイクダウン
- まず サブプロシジャ " ReDim_Preserve_2D_Array_Both_Dimensions ".
- その後、残りのコードまでを VBA トランスポーズ 関数は、最初のコードと同じです。
- ここでは、配列を転置しています。
- そして、配列の上辺を増やしていくのです。
- その後、再度、配列の転置を行うので、最終的には下限値を変更することになります。
- 次に、古いデータを保持したまま、リサイズした配列の値を入力します。
- 最後に、セル範囲に値を書き込みます。 C6:E9 .
- その後です。 のように、最初の方法で , 実行 このコード
- このように、このコードで、どのように 2次元配列 を使用して、" リディムプリザーブ " と、その VBA トランスポーズ 関数を使用します。
続きを読む VBAでExcelの配列を転置する（3つの方法）
覚えておきたいこと
- リディムプリザーブ は配列の下限を変更することはできません。 そのためには，配列の下限を変更するために トランスポーズ 関数を使用します。
- のみを使用することができます。 ReDim をダイナミックアレイで表示します。
結論
の手軽な方法を2つご紹介しました。 リディムプリザーブ " a 2D 勢揃い これらの方法について何か問題がある場合、または私へのフィードバックがある場合は、以下にコメントしてください。 また、私たちのサイトを訪問することができます。 エクセルウィキ Excel関連の記事をもっと見る。 読んでくれてありがとう。
