【入門編】Variant型配列の高速処理：Rangeオブジェクトとの直接転送テクニック – Excel VBA解析バイブル

ExcelVBA

2026.08.26

こんにちは。自動化の現場で血の滲むような試行錯誤を繰り返してきたエンジニアです。

VBAを始めたばかりの頃、誰もが一度は「セルを一つずつ読み書きするループ」を書くはずです。しかし、データの行数が増えるにつれ、マクロが止まったかのように動かなくなる……あの絶望的な待ち時間に直面したことはありませんか？

今日は、「VBAの処理速度を100倍、1000倍にする」ための最重要テクニック、Variant型配列を使った高速転送について、その本質を徹底解説します。

—

まず、なぜループ処理が遅いのかを知ってください。
Excelのセル（Rangeオブジェクト）に一つずつアクセスするということは、VBAというプログラムの世界から、Excelという「別のアプリケーション」の扉をノックし続けているのと同じです。

これが、高速化の絶対的な黄金律です。

—

VBAでは、Rangeオブジェクトの値をVariant型の変数に代入するだけで、瞬時に2次元配列としてデータを取り込むことができます。

Sub FastDataProcessing()
Dim ws As Worksheet
Dim dataArray As Variant
Dim i As Long

Set ws = ThisWorkbook.Sheets(“Sheet1”)

‘ 1. セル範囲をまるごとVariant変数に放り込む（ここが重要！）
‘ これだけで、Excel上のデータがメモリ上の2次元配列に格納されます
dataArray = ws.Range(“A1:C10000”).Value

‘ 2. メモリ上の配列を高速ループで回す
‘ セルに触れていないので、処理速度は次元が違います
For i = 1 To UBound(dataArray, 1)
‘ 配列の2列目(B列)に値を加算する例
dataArray(i, 2) = dataArray(i, 2) 1.1
Next i

‘ 3. 処理した配列を、一気にセルへ書き戻す
ws.Range(“A1:C10000”).Value = dataArray

MsgBox “転送完了！”, vbInformation
End Sub

—

`Dim dataArray() As String` のように型を固定してはいけません。`Range.Value`からデータを受け取る際、Excelは自動的に適切な型（数値、文字列、エラー値など）が混在したデータを返してきます。これを最も柔軟に受け止められるのが `Variant` 型なのです。

`Range`を配列化した際、インデックス（添字）は必ず1から始まります。0から始まると思ってループを組むと、確実に「インデックスが有効範囲にありません」というエラーが発生します。

配列を書き出す際は、書き出し先のRange範囲が、配列のサイズと完全に一致している必要があります。
`Range(“A1:A5”).Value = myArr` と書くなら、`myArr`も5行分必要です。サイズがずれると、予期せぬエラーやデータ欠損の原因になります。

—

一つだけ注意点があります。もしRange範囲が「1行のみ」や「1列のみ」の場合、VBAは配列を少し特殊な形式で扱おうとします。

対策: 常に「2次元配列」として扱いたい場合は、`Application.Index`関数を使って強制的に次元を整えるテクニックがありますが、まずは「複数行・複数列」の範囲で試すことから始めてみてください。

—

「マクロの記録」で生成されたコードは、いわば「初心者の歩み」です。今回紹介した配列転送は、あなたが「エンジニアの走り」を手に入れるための第一歩です。

メモリを制する者は、VBAを制します。
最初は少し難しく感じるかもしれませんが、一度この「ごっそり転送」の快感を覚えてしまえば、もう二度とセルを一つずつループさせるような遅いコードには戻れなくなるはずです。

さあ、あなたの書くコードで、Excelを限界まで加速させてみてください。応援しています！