【VBA】2次元配列の使い方入門！Excelの表形式データを高速処理

2025年8月16日

はじめに

VBAの「配列」は、通常、データを一列に並べた「1次元」のものを指します。しかし、Excelのワークシートのように、行と列からなる表（テーブル）形式のデータを扱いたい場合、より強力な「2次元配列」が非常に役立ちます。

2次元配列は、縦横に仕切りがある大きな箱のようなもので、（行番号, 列番号）の形で各データにアクセスします。この2次元配列を使いこなすことで、特に大量のセルデータを扱う際の処理速度を劇的に向上させることができます。

この記事では、2次元配列の宣言方法から、ループを使った値の代入、そして配列のデータを一瞬でセル範囲に書き出す高速化テクニックまでを、分かりやすく解説します。

2次元配列の基本的なサンプルコード

このマクロは、3行4列の2次元配列を作成し、各要素に (行, 列) という形式の文字列を格納します。その後、配列の全データを B2:E4 のセル範囲に一括で書き出します。

完成コード

' 2次元配列の基本的な使い方
Sub TwoDimensionalArrayExample()
    
    '--- 1. 2次元配列の宣言 ---
    ' 1から3までの行、1から4までの列を持つ、文字列(String)型の配列を宣言
    Dim dataTable(1 To 3, 1 To 4) As String
    Dim r As Long, c As Long ' 行(row)と列(column)のループカウンター
    
    '--- 2. ネストしたループで配列の各要素に値を代入 ---
    For r = 1 To 3 ' 行のループ (外側)
        For c = 1 To 4 ' 列のループ (内側)
            ' (行, 列) のインデックスを使って値を格納
            dataTable(r, c) = "R" & r & ", C" & c
        Next c
    Next r
    
    '--- 3. 配列のデータをセル範囲に一括で書き出す ---
    Worksheets("Sheet1").Range("B2:E4").Value = dataTable
    
    MsgBox "2次元配列の内容をセルに一括で書き出しました。"

End Sub