「マクロの記録」という名の呪縛：Select/Activateを排除し、Excel VBAを極限まで高速化するオブジェクト直接参照術
Excel VBAのコードベースを査閲したとき、そのシステムの良し悪しは一目でわかる。生成されたコードの随所に `.Select` や `.Activate`、そしてそれに依存した `Selection` や `ActiveCell` が踊っているならば、それは「動くモックアップ」の域を出ない、レガシーの負債である。
「マクロの記録」は強力な機能だ。しかし、それはあくまでユーザーの操作をトレースするためのビギナー向け機能に過ぎない。記録機能が吐き出すコードは、GUI上のフォーカスを移動させ、描画エンジンを強制的に駆動させるため、実務で耐えうるパフォーマンスとは程遠い。
本稿では、VBEの向こう側にあるExcelのオブジェクトモデルの真実を暴き、`Select` 依存症を断ち切るための「オブジェクト直接参照術」を、メモリ管理やWindows APIのレイヤーに踏み込んで徹底解説する。
—
1. なぜ `Select` / `Activate` は悪なのか？
プログラミング言語としてのVBAにおいて、`Select` や `Activate` は「人間の視覚的確認」のためのものであり、コンピュータにとっては何の意味も持たない、百害あって一利なしの冗長な命令である。
GUI描画エンジンとメモリの無駄撃ち
セルを選択（Select）するということは、Excelのウィンドウコンテキスト、ひいてはWindowsのウィンドウマネージャに対して「描画の更新」を強制する行為だ。
背後で何千行ものデータを処理するループの中でこれを行えば、OSの描画スレッドとVBAの実行スレッドの間で無駄なコンテキストスイッチが発生し、CPUサイクルが浪費される。
さらに、`Selection` オブジェクトは、アクティブなシートやウィンドウの状態に強く依存する「暗黙のグローバル変数」のようなものである。これが原因で、シートの構成が変わった瞬間に実行時エラー（1004）を吐く脆いシステムが完成する。
—
2. オブジェクト直接参照の基本：変数バインディングの極意
高速かつ堅牢なコードの第一歩は、操作対象の `Range` オブジェクトを変数に格納し、ドット演算子（`.`）で直接プロパティやメソッドを操作することだ。
以下の対比を見てほしい。
【アンチパターン】「マクロの記録」直系のレガシーコード
‘ 【悪夢】画面がチラつき、極めて遅い
Sheets(“Data”).Select
Range(“A2”).Select
ActiveCell.FormulaR1C1 = “=RC[1]RC[2]”
Selection.AutoFill Destination:=Range(“A2:A10000”)
【模範解答】オブジェクト直接参照による高速化コード
‘ 【極限】画面描画なし、メモリ上で完結
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets(“Data”)
‘ Rangeを変数にバインドし、Selectせずに直接操作
With ws.Range(“A2:A10000”)
.Formula = “=B2C2”
‘ 必要であれば値の確定（値化）まで一撃で行う
‘.Value = .Value
End With
このアプローチでは、Excelの内部データ構造（DOM）を直接メモリ上で書き換えているため、GUIの描画エンジンを一切バイパスする。これだけで数倍から数十倍の速度向上が見込める。
—
3. 画面描画の完全停止と計算モードの制御（実戦的プロシージャ）
大規模なデータ処理を行う場合、オブジェクトの直接参照に加え、Excelのアプリケーションレベルの設定を最適化する必要がある。
以下のコードは、実務の現場で私が必ず実装する、堅牢かつ最高速のデータ処理テンプレートである。エラーハンドリング（`On Error GoTo`）を組み込み、処理途中で異常終了した場合でも、必ず環境が元通りに復元されるよう設計している。
Option Explicit
Public Sub ExecuteHighSpeedProcessing()
Dim startTime As Double
startTime = Timer
‘ 1. 環境設定の退避と高速化モードへの移行
With Application
.ScreenUpdating = False ‘ 画面描画の停止
.Calculation = xlCalculationManual ‘ 自動計算の停止
.EnableEvents = False ‘ イベントの発生抑制
.DisplayAlerts = False ‘ 警告メッセージの非表示
End With
On Error GoTo ErrorHandler
‘ 2. メイン処理の実行（直接参照の徹底）
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets(“Data”)
Dim targetRange As Range
Set targetRange = ws.Range(“A2:A100000”)
‘ 配列処理との組み合わせでさらに速度を極める（後述）
targetRange.Value = “Processed”
‘ 3. 正常終了時のクリーンアップ
ResetEnvironment
MsgBox “処理が完了しました。実行時間: ” & Format(Timer – startTime, “0.00”) & “秒”, vbInformation
Exit Sub
ErrorHandler:
‘ 4. 異常終了時のフォールバック
ResetEnvironment
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical
End Sub
Private Sub ResetEnvironment()
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
.EnableEvents = True
.DisplayAlerts = True
End With
End Sub
—
4. プロフェッショナルの領域：Variant配列とメモリ最適化
数万行を超えるセルを1つずつ `.Value` で読み書きすることは、オブジェクトの直接参照であっても、VBAとExcelのCOM境界（COM Interop）を何度も跨ぐため、ボトルネックになり得る。
真にパフォーマンスを追求するシニアエンジニアは、「セル範囲とVariant型二次元配列のメモリ一括同期」を使用する。
Sub ArrayBatchProcessing()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets(“Data”)
Dim rng As Range
Set rng = ws.Range(“A2:C50000”)
‘ 1. セル群のデータを一括してメモリ上の二次元配列へロード
Dim rawData As Variant
rawData = rng.Value
Dim i As Long
‘ 2. メモリ上で高速にデータ加工
For i = LBound(rawData, 1) To UBound(rawData, 1)
‘ 例: 1列目の値に特定の文字列を付与
rawData(i, 1) = “ID_” & rawData(i, 1)
Next i
‘ 3. 加工済みの配列を一括してワークシートへ書き戻し
rng.Value = rawData
‘ 4. オブジェクトの明示的解放（VBAのメモリリーク対策の作法）
Set rng = Nothing
Set ws = Nothing
End Sub
オブジェクトの明示的解放について
VBAのガベージコレクションは参照カウント方式をとっている。プロシージャ終了時にローカル変数は自動解放されるが、巨大なRangeやWorksheetオブジェクトを扱う場合、`Set ws = Nothing` と明示的に参照を切ることは、大規模システムにおけるメモリ肥大化（Bloat）を防ぐためのプロの作法である。
—
5. レガシー環境とシステム間連携への警鐘
社内システムや外部API、あるいは古い基幹システムからのCSV/Excelエクスポート機能と連携するVBAにおいて、`Select` 依存のコードは「時限爆弾」となる。
- マルチタスク環境での誤作動: ユーザーが処理中に別のExcelファイルをアクティブにした瞬間、`ActiveCell` や `ActiveSheet` のコンテキストが変わり、意図しないデータを破壊する。
- ヘッドレス実行（自動化サーバー）: タスクスケジューラやVBScript経由でExcelをバックグラウンド（Visible = False）で起動し、バッチ処理を行う場合、`Select` メソッドは確実に「実行時エラー 1004: RangeクラスのSelectメソッドが失敗しました」を引き起こしてクラッシュする。
完全なオブジェクト直接参照と `ThisWorkbook` / `ActiveWorkbook` の厳密な使い分けこそが、デスクトップオートメーションを真の「エンタープライズ・システム」へと昇華させる唯一の道である。
—
結びにかえて
VBAは「おもちゃの言語」ではない。正しくアーキテクチャを理解し、Excelという強大なCOMサーバーの挙動をコントロール下に置くならば、C#やPythonの簡易スクリプトに匹敵する堅牢な自動化基盤となる。
明日から、いや、今すぐ既存のコードを開き、`.Select` と `.Activate` をすべて検索せよ。そしてそれらを削除し、オブジェクトを直接変数にバインドする美しいコードへとリファクタリングするのだ。それこそが、真のエンジニアリングである。
