こんにちは！Excel VBAの世界へようこそ。
マクロの記録ボタンを押して「動いた！」と感動したのも束の間、いざ実務の何万行ものデータ処理を任せてみたら……。画面が固まり、コーヒーを飲み終えてもまだ終わらない。そんな絶望を味わったことはありませんか？
もしあなたが、「セルを一つずつ `For` ループで舐めるように処理する」コードを書いているなら、ここが運命の分かれ道です。
今回は、VBAのパフォーマンスを極限まで引き上げ、処理時間を数十分の1、あるいは数千分の1へと劇的に短縮する奥義――「Variant型配列を活用したRangeオブジェクトへの一括転送」の極意を伝授します。
ここをクリアすれば、あなたのVBAスキルは「初心者」の領域を完全に抜け出し、「実務を高速化するエンジニア」へと一歩踏み出すことができますよ。さあ、一緒に本質をマスターしていきましょう！
—
1. なぜセルを1つずつ触ると遅いのか？（VBA最大のボトルネック）
まず、敵を知ることから始めましょう。
VBAからExcelのシート（セル）を操作するということは、プログラミングの世界（VBAのメモリ空間）から、表計算ソフトの世界（Excelの画面・グリッド）へと「パスポートなしで何度も国境を越える」ようなものです。
- セルを1つずつ読み書きするコード：
Excelのシートに1万回アクセスするため、その都度「おっと、通関手続きです」と処理が中断され、激しいオーバーヘッド（無駄な時間）が発生します。これが「マクロが遅い」最大の原因です。
- 配列を使った一括転送：
最初に1万行のデータをVBA側のメモリ（Variant型配列）に一瞬でごっそりコピーします。あとは超高速なメモリ上で計算を完結させ、最後にシートへ一瞬でごっそり書き戻す。国境を往復するのは、最初と最後の「たった2回」だけです。
この構造的違いを知るだけで、あなたの書くコードの質は劇的に変わります。
—
2. 【図解的イメージ】メモリとシートのワープ航法
イメージしてみましょう。
【遅い方法：1行ずつお使い便】
VBA ──(行く)──> セルA1
VBA <──(戻る)── セルA1
VBA ──(行く)──> セルA2
VBA <──(戻る)── セルA2
……（これを1万回繰り返すからフリーズする）
【速い方法：大型コンテナ（配列）一括転送】
VBA <═══════════ セル範囲（一瞬で一括読み込み）
（メモリ上で超高速にデータ加工）
VBA ═══════════> セル範囲（一瞬で一括書き戻し）
この「大型コンテナ」の役割を果たすのが、Variant型変数です。
VBAのVariant型は、どんなデータ型でも飲み込むことができる懐の深い変数ですが、実は「2次元の表データ（行と列）」をそのまま丸ごと格納するポテンシャルを秘めています。
—
3. 実践！一括転送の基本ステップ
それでは、実際にコードを書いてみましょう。
今回は、A列にある数値すべてに「1.1（10%増し）」を掛け算して、B列に一括出力する処理を例にします。
以下のコードをVBE（Visual Basic Editor）の標準モジュールに貼り付けてみてください。
Sub HighSpeedProcessingSample()
Dim ws As Worksheet
Set ws A ActiveSheet
Dim startTime As Double
startTime = Timer ‘ 処理時間計測用
‘ 1. 最終行を取得（無駄な範囲を読み込まないためのプロの技）
Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, “A”).End(xlUp).Row
If lastRow < 1 Then Exit Sub ' 2. 【読み込み】セル範囲を一気にVariant型の配列へ格納 ' ※ Rangeを代入すると、自動的に「1ベースの2次元配列」になります Dim rawData As Variant rawData = ws.Range("A1:A" & lastRow).Value ' 3. 【メモリ上での計算】配列の要素をループ処理 ' ※ ここはメモリ上の処理なので、セルアクセスがなく圧倒的に高速です Dim i As Long For i = 1 To UBound(rawData, 1) ' 値が存在する場合のみ計算（空欄対策） If Not IsEmpty(rawData(i, 1)) Then rawData(i, 1) = rawData(i, 1) 1.1 End If Next i ' 4. 【書き出し】配列のデータを一気にB列の範囲へ転送 ' ※ 出力先は「受け取る配列と同じサイズのRange」を指定するのが鉄則です ws.Range("B1:B" & lastRow).Value = rawData ' 処理時間の表示 MsgBox "処理が完了しました！ 実行時間: " & Format(Timer - startTime, "0.00") & "秒", vbInformation End Sub
コードの重要ポイント解説
1. `rawData = ws.Range(…).Value`
これだけで、ワークシート上のセル範囲が、一瞬にしてVBAのメモリ上の「2次元配列」に変貌します。
2. `UBound(rawData, 1)`
配列の「行数（1次元目の上限）」を取得しています。データの増減に強い柔軟なコードを書くためには必須の関数です。
3. 書き出しのスマートさ
`ws.Range(“B1:B” & lastRow).Value = rawData` とするだけで、配列のデータがきれいに対象のセルへグリッド状に配置されます。
—
4. 陥りやすい罠とエラー回避の極意（ここが重要！）
配列の一括転送は強力無比ですが、プログラミング初学者が必ずといっていいほどハマる「落とし穴」があります。ここを知っておくことが、真のエンジニアへの近道です。
罠その1：1セルだけの範囲を配列に入れようとすると爆発する？
例えば、`ws.Range(“A1”).Value` のようにセルがたった1つの場合、それを配列に代入しようとすると、2次元配列ではなく「ただの変数（スカラー値）」として扱われてしまい、後続の `UBound` で型不一致エラー（エラー 13）を引き起こします。
【回避策】
処理対象が1行しかない可能性がある場合は、事前にデータの行数・列数を判定するか、以下のように配列化する前に条件分岐を入れます。
Dim rng As Range
Set rng = ws.Range(“A1:A” & lastRow)
‘ 1セルしかない場合の特殊挙動を防ぐ安全対策
If rng.Cells.Count = 1 Then
‘ 1セル用の処理
Else
Dim v As Variant
v = rng.Value
‘ 配列処理…
End If
罠その2：配列のインデックスは「1」から始まる（Excelの行番号と一致）
通常、VBAで `Dim arr(9) As String` のように宣言した配列のインデックスは `0` から始まります。しかし、Rangeから配列に値を直結させた場合、インデックスは強制的に「1」から始まります。
そのため、ループを書くときは必ず `For i = 1 To UBound(arr, 1)` と記述してください。`0` から始めると、配列の最小値エラーや、先頭データのスキップが発生します。
—
5. まとめ：今日からあなたのVBAは生まれ変わる
いかがでしたでしょうか？
今回学んだ「Variant型配列を活用したRangeオブジェクトへの一括転送」のキタミをまとめます。
- セルを1つずつ触るな！メモリ（配列）上で処理せよ！
- `.Value` を代入するだけで、セル範囲と配列は一瞬で往来できる。
- 出力時は、受け側も同じサイズのRangeを指定する。
このテクニックを手に入れたあなたなら、数千行、数万行のデータ処理も恐れるに足りません。実務のファイルを処理したとき、「えっ、もう終わったの？」という快感をぜひ味わってみてください。
ここをクリアしたあなたなら、Excel VBAの基本はもうバッチリです！
明日の業務から、ぜひこの高速化の極意を試してみてくださいね。応援しています！
