【エクセルVBA】３次元配列の作成！セル上データを３D配列に格納してみる

こんにちは、ヒガシです。

このページでは、VBA上で３次元配列を作成する方法をご紹介していきます。

それではさっそくやっていきましょう！

実施内容のイメージ共有
VBA上での３次元配列の作り方
セル上データを３次元配列にするサンプルコード
サンプルコードの実行結果確認
おわりに

実施内容のイメージ共有

まずは以降でどんな処理を実施していくかのイメージを共有しておきましょう。

今回は、以下の画像に示すように、エクセルシート上に記述されているデータをVBA上で３次元配列として格納していきます。

VBA上での３次元配列の作り方

VBA上で３次元配列を作成する方法は以下の通りです。

Dim array_name(*, *, *) As Variant

ここでarray_nameはあなたの好きな配列名に変更してOKです。

また、*の部分では３次元配列の大きさを指定します。

例えば今回のように(3,3,3)の大きさの配列を作成するには、

Dim test3d_array(3, 3, 3) As Variant

上記のようにすればOKです。

セル上データを３次元配列にするサンプルコード

それでは冒頭に紹介したようにセル上のデータを(3,3,3)次元の配列に格納してみましょう。

以下がそのサンプルコードです。

SSub array_3d()
    Dim test3d_array(3, 3, 3) As Variant
    For i = 0 To 2
        For j = 0 To 2
            For k = 0 To 2
                test3d_array(i, j, k) = Cells(j + 1, i * 3 + k + 1).Value
            Next
        Next
    Next
    MsgBox test3d_array(0, 0, 0)
    MsgBox test3d_array(0, 1, 2)
    MsgBox test3d_array(2, 2, 2)
End Sub

最後の方にメッセージボックスで中身を確認していますが、ここでの数値の意味は以下の通りです。