VBAで2次元配列の初期化と利用方法

VBAは多次元配列の利用が可能

VBAの配列では2次元の作成が可能です。また、3次元、4次元、と多次元配列も可能です。

実際には2次元までが現実的なところと思われます。

3次元以降になってくると管理もデバッグも大変になってくるため、コレクションなどの配列以外の方法で実装する方が都合がいい気がします。

実装可能な最大次元数は要素数が2(ary(1, 1, ・・・)と、各要素を1で定義する配列)の場合は理論上は31次元になりますが、メモリの関係で16次元ぐらいが最大次元数になります。

これについては別ページ「VBAで定義可能な配列の最大次元数」に書いています。

2次元配列の宣言

2次元配列とは行と列の関係にある配列です。
実際に利用する場面としては、Excelのシートの内容を保持するために、行と列からセルを特定する場合が多いと思われます。

宣言の書き方

2次元配列に限らず、配列を定義する場合の要素数は実際の領域から1引いた値を設定します。
要素に2と書くと、0, 1, 2 の3つの領域を持つことになります。
なお、Option Baseを設定している場合は異なります。

2次元配列へのデータの設定

以下のような感じでデータを格納します。



2次元配列の初期化

2次元配列の初期化は1次元配列と同様でEraseステートメントを使います。
静的配列の場合はEraseステートメントを実行すると配列自体は残りますが値が変数の型に合わせて初期化されます。
動的配列の場合は配列であることは残りますが、要素数が未定の状態にまで解放され、Dim ary() の状態になります。

シートの内容を2次元配列に格納するサンプル

以下のような表形式のデータを2次元配列に格納するサンプルです。

ソースコード

事前に表の行数と列数が確定している場合のコードです。静的配列で書いています。

ソースコードの説明

2行目で2次元配列を静的配列として定義しています。
10行目は表の行数を取得しています。ヘッダ行があるためその分を減らしています。
11行目は表の列数を取得しています。
最終行と最終列の取得については別ページ「VBAで編集されているセル範囲を選択する(最終行、最終列の取得)」にも書いてありますので参考にしてください。

14行目で開始セル位置を選択しています。これ以降はこのセルが基点となります。
17行目で行のループを行い、その中の19行目で列のループを行います。
21行目で現在の行と列のセルの値を取得します。
23行目で取得したセルの値を配列に格納します。

関連記事

サブコンテンツ

このページの先頭へ