【2026年8月最新】VBAの配列完全ガイド｜宣言・ループ・コピー・ソート・フィルタ・Claude Code活用法

📚 用語解説

配列（Array）：VBAで複数の値を1つの変数名でまとめて管理するデータ構造。「arr(0)」「arr(1)」のように添字（インデックス）番号を使って各要素にアクセスする。通常のVBA変数が1つの値しか持てないのに対し、配列は同種のデータを大量に扱える。Excelのセル範囲を一括で配列に読み込んで処理することで、セルを1つずつ読むより実行速度が飛躍的に速くなる。

' 5要素の固定長配列（添字0〜4）
Dim scores(4) As Integer

' 値を代入
scores(0) = 85
scores(1) = 92
scores(2) = 78
scores(3) = 88
scores(4) = 95

' 合計を計算
Dim total As Integer
Dim i As Integer
For i = 0 To 4
    total = total + scores(i)
Next i
MsgBox "合計: " & total

モジュールの先頭に「Option Base 1」と書くと、配列の添字が1から始まるようになります。Excelのシート行が1始まりなのに合わせて1始まりにしたい場合に使えます。ただし、Option Base 1を使うとコードを読む人が混乱しやすいため、0始まりのままで「添字0を使わない」スタイルを採用する場合もあります。

📚 用語解説

ReDim（動的配列のサイズ変更）：VBAで動的配列のサイズを実行時に変更するステートメント。「Dim arr() As String」と要素数を空欄で宣言し、後で「ReDim arr(n)」と要素数を指定する。ReDimすると既存の配列データが消えるため、データを保持したままサイズを変更したい場合は「ReDim Preserve arr(n)」を使う。処理するデータ件数が事前に分からない場合（セルの行数が可変など）に必須。

' 動的配列の宣言（要素数を空欄にする）
Dim names() As String

' データ件数を確認してからサイズを決定
Dim lastRow As Long
lastRow = Cells(Rows.Count, 1).End(xlUp).Row

' ReDimでサイズを設定
ReDim names(lastRow - 1)

' セルの値を配列に格納
Dim i As Long
For i = 0 To lastRow - 1
    names(i) = Cells(i + 1, 1).Value
Next i

MsgBox "読み込んだ件数: " & lastRow

' ReDim Preserveで要素を1つずつ追加
Dim results() As String
Dim count As Integer
count = 0

Dim i As Long
For i = 1 To 100
    If Cells(i, 1).Value >= 80 Then
        ' 配列サイズを1つ増やしてデータを保持
        ReDim Preserve results(count)
        results(count) = Cells(i, 2).Value
        count = count + 1
    End If
Next i

MsgBox "80点以上の人数: " & count

ReDim Preserveをループの中で毎回呼ぶと、毎回メモリの再割り当てが発生して処理が遅くなります。対策として「最初に大きめのサイズで宣言→データを格納→最後に実際の要素数でReDim Preserve」するパターンか、CollectionやArrayListを使う方法があります。データ件数が事前に分かる場合は最初から正確なサイズで宣言するのがベストです。

📚 用語解説

UBound・LBound：VBAで配列のインデックスの上限（UBound）と下限（LBound）を返す組み込み関数。「UBound(arr)」は配列arrの最大添字を返す。「LBound(arr)」は最小添字（通常0または1）を返す。要素数はUBound(arr) - LBound(arr) + 1で計算できる。2次元配列では「UBound(arr, 2)」で2次元目の上限を取得できる。

' UBoundを使った安全なループ
Dim scores(4) As Integer
scores(0) = 85: scores(1) = 92: scores(2) = 78: scores(3) = 88: scores(4) = 95

Dim i As Integer
For i = LBound(scores) To UBound(scores)
    Debug.Print scores(i)
Next i

' 要素数を計算
Dim count As Integer
count = UBound(scores) - LBound(scores) + 1
MsgBox "要素数: " & count   '  5と表示される

' For文で配列を順番に処理
Dim fruits(2) As String
fruits(0) = "りんご"
fruits(1) = "みかん"
fruits(2) = "バナナ"

Dim i As Integer
For i = 0 To UBound(fruits)
    Cells(i + 1, 1).Value = fruits(i)
Next i

' For Each文で配列の全要素を処理
Dim fruits(2) As String
fruits(0) = "りんご"
fruits(1) = "みかん"
fruits(2) = "バナナ"

Dim item As Variant
Dim output As String
For Each item In fruits
    output = output & item & ", "
Next item
MsgBox output   '  りんご, みかん, バナナ, と表示

📚 用語解説

配列の一括読み込み・書き出し：VBAでRange（セル範囲）をVariant型の変数に代入すると、その範囲のデータが2次元配列として格納される。逆に、同じサイズのRange変数に配列を代入することで、全データを一括でセルに書き出せる。個別のCells(i,j)アクセスを繰り返すより何十〜何百倍もの速度差が出ることがある。大量データ処理の必須テクニック。

' セル範囲を配列に一括読み込み
Dim dataArr As Variant
' A1:D1000の範囲を一括読み込み（2次元配列になる）
dataArr = Range("A1:D1000").Value

' 配列の要素数を確認
Dim rowCount As Long
Dim colCount As Long
rowCount = UBound(dataArr, 1)   ' 行数（1次元目の上限）
colCount = UBound(dataArr, 2)   ' 列数（2次元目の上限）

' 配列をメモリ内で処理（セルアクセスなし＝高速）
Dim i As Long
For i = 1 To rowCount
    If dataArr(i, 3) < 100 Then   ' 3列目が100未満の場合
        dataArr(i, 4) = "要確認"  ' 4列目にフラグを立てる
    End If
Next i

' 処理済み配列をセルに一括書き出し
Range("A1:D1000").Value = dataArr

MsgBox "処理完了"

' Variant型を使った配列コピー
Dim original As Variant
original = Array(10, 20, 30, 40, 50)

' Variant型変数に代入してコピー
Dim copied As Variant
copied = original

' コピーを変更しても元の配列には影響しない
copied(0) = 999
MsgBox "元の配列(0): " & original(0)  '  10と表示（変更されていない）
MsgBox "コピー配列(0): " & copied(0)   '  999と表示

' Filter関数で配列を絞り込む
Dim names As Variant
names = Array("山田太郎", "鈴木花子", "山田花", "田中一郎", "山本次郎")

' 「山田」を含む名前だけ抽出
Dim filtered As Variant
filtered = Filter(names, "山田")

' 結果を表示
Dim i As Integer
For i = 0 To UBound(filtered)
    Debug.Print filtered(i)
Next i
' 出力: 山田太郎、山田花

' Join: 配列 → 区切り文字付き文字列
Dim fruits As Variant
fruits = Array("りんご", "みかん", "バナナ")
Dim joined As String
joined = Join(fruits, ", ")
MsgBox joined   '  りんご, みかん, バナナ と表示

' Split: 区切り文字付き文字列 → 配列
Dim csv As String
csv = "東京,大阪,名古屋,福岡"
Dim cities As Variant
cities = Split(csv, ",")
MsgBox cities(0)   '  東京 と表示
MsgBox UBound(cities)   '  3と表示（0〜3の4要素）

📚 用語解説

2次元配列：VBAで行と列の2方向にインデックスを持つ配列。「Dim arr(9, 3) As Integer」と書くと10行×4列の配列が作られる。Excelのセル範囲をVariant型変数に代入した場合も2次元配列になる（1次元目が行、2次元目が列に対応）。2次元配列の要素は「arr(行インデックス, 列インデックス)」でアクセスする。

' 2次元配列の宣言と初期化
Dim matrix(2, 2) As Integer   ' 3行×3列の2次元配列

' 値を代入（行, 列）
matrix(0, 0) = 1
matrix(0, 1) = 2
matrix(0, 2) = 3
matrix(1, 0) = 4
matrix(1, 1) = 5
matrix(1, 2) = 6
matrix(2, 0) = 7
matrix(2, 1) = 8
matrix(2, 2) = 9

' 2重ループで全要素を処理
Dim r As Integer, c As Integer
For r = 0 To 2
    For c = 0 To 2
        Cells(r + 1, c + 1).Value = matrix(r, c)
    Next c
Next r

Range(「A1:D100」).Valueをvariant型変数に代入すると、行×列の2次元配列として格納されます。この時、1次元目（arr(i, ?)）が行インデックス、2次元目（arr(?, j)）が列インデックスになります。また、セル範囲から読み込んだ配列は添字が「1始まり」になる（0ではなく1から）点に注意が必要です。

NEXT STEP

この記事の内容を、あなたのビジネスで
実践してみませんか？

AI活用を自社で回せるようになりたい方へ

AI鬼管理

Claude Code・Cowork導入支援から業務設計・社内浸透まで実践ベースで伴走。「自社で回せる組織」を90日で作る経営者向けトレーニング。

AI鬼管理を詳しく見る →

業務を丸ごと任せたい方へ

AI社員AIKATA

請求処理・データ入力・問い合わせ対応などの定型業務を、AI×人の品質管理体制で丸ごと代行。月30万円の定額でまかせ放題、日々は成果物を承認するだけ。

AI社員AIKATAを詳しく見る →