「マクロの記録」を卒業せよ：Select/Activateを完全排除するRange直接参照の極意
開発現場で後輩や他部署の作成したVBAコードレビューを行うと、いまだに画面がパチパチと切り替わる、いわゆる「マクロの記録の直貼りコード」に遭遇する。
`Range(“A1”).Select`
`Selection.Copy`
`ActiveSheet.Paste`
……この記述を見た瞬間、私はチーフアーキテクトとして深い絶望と同時に、改善という名の戦意を喚起される。
Excel VBAのパフォーマンスを殺し、予期せぬ実行時エラー（バグ）の温床となる最大の元凶こそ、この `Select` と `Activate` である。
今回は、なぜこれらが悪なのか、そして実務で通用する「オブジェクトの直接参照」とはいかなるものか、その極意をロジカルかつシャープに伝授しよう。
—
1. なぜ `Select / Activate` は悪なのか？（パフォーマンスと堅牢性の観点）
「マクロの記録」は優秀な機能だ。しかし、それはあくまで初心者がVBEの構文を学ぶための「補助輪」に過ぎない。補助輪をつけたまま高速道路を走ろうとする者がいたら、周囲は止めるはずだ。
① 画面描画（ScreenUpdating）のコスト
`Select` や `Activate` を実行するたび、Excelは「人間が目視するため」に画面の再描画（UIのレンダリング）を行おうとする。これが数万行のループ内で行われた日には、CPUとメモリは無駄な描画処理で飽和し、処理速度は劇的に低下する。
② 予期せぬコンテキストの喪失（バグの温床）
`ActiveSheet` や `Selection` といった「アクティブなもの」に依存するコードは、実行中のユーザーの操作に極めて弱い。
マクロ実行中にユーザーが別のセルをクリックしたり、別ウィンドウにフォーカスを移したりしただけで、ターゲットがズレ、「100-アプリケーション定義またはオブジェクト定義のエラー」 や、最悪の場合は「意図しないシートのデータを上書き破壊する」という致命的な事故を引き起こす。
プロのエンジニアが書くべきコードの鉄則、それは 「アクティブ化（選択）せずに、メモリ上で完結させること」 である。
—
2. オブジェクト直接参照の基本：変数への代入とドット（.）の連鎖
直接参照の基本は極めてシンプルだ。
「セルを選択して操作する」のではなく、「セル（Rangeオブジェクト）を変数に格納し、その変数に対して直接命令を下す」。
‘ 【NG例】マクロの記録スタイル
Sheets(“集計シート”).Select
Range(“A1”).Select
ActiveCell.Value = “売上”
‘ 【OK例】オブジェクト直接参照スタイル
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets(“集計シート”)
ws.Range(“A1”).Value = “売上”
このコードには `Select` も `Active` も存在しない。`ws` という明確なワークシートオブジェクトのコンテキスト内で `Range(“A1”)` を操作しているため、仮に現在ユーザーが別のシートを見おろしていようとも、コードは寸分の狂いなく「集計シートのA1セル」を撃ち抜く。
—
3. 【プロダクションコード例】実務で使える堅牢なデータ転記・整形処理
では、実務の現場でそのまま流用できる、美しく堅牢なコードを見てほしい。
このコードは、エラーハンドリング、画面描画の停止、そして徹底したオブジェクト直接参照によって構成されている。
Option Explicit
Public Sub ExecuteDataTransfer()
‘ =========================================================================
‘ 処理概要:
‘ マスタシートからデータを抽出し、集計シートへ高速転記する。
‘ Select/Activateを一切排除し、極限のパフォーマンスと堅牢性を担保。
‘ =========================================================================
Dim startTime As Double
startTime = Timer
‘ 1. エラーハンドリングと環境設定の退避
On Error GoTo ErrorHandler
With Application
.ScreenUpdating = False ‘ 画面描画停止
.Calculation = xlCalculationManual ‘ 自動計算停止（大量データ処理時の必須テクニック）
.EnableEvents = False ‘ イベント抑制
End With
‘ 2. ワークオブジェクトの定義（ThisWorkbookを使用し、アクティブブック依存を排除）
Dim wb As Workbook
Set wb = ThisWorkbook
Dim wsMaster As Worksheet
Dim wsTarget As Worksheet
Set wsMaster = wb.Sheets(“MasterData”)
Set wsTarget = wb.Sheets(“Summary”)
‘ 3. 転記元データの最終行を取得（直接参照）
Dim lastRow As Long
‘ データが存在しない場合のフェイルセーフ
If wsMaster.Cells(wsMaster.Rows.Count, “A”).End(xlUp).Row < 2 Then
Err.Raise 9999, "ExecuteDataTransfer", "転記元データが存在しません。"
End If
lastRow = wsMaster.Cells(wsMaster.Rows.Count, "A").End(xlUp).Row
' 4. データの高速一括転記（値の代入はRange同士でダイレクトに行う）
' ※セルを1つずつループで回すのは御法度。ブロック転記が鉄則。
Dim rngSource As Range
Dim rngDestination As Range
Set rngSource = wsMaster.Range("A2:D" & lastRow)
Set rngDestination = wsTarget.Range("A2:D" & lastRow)
' 値を一括コピー（クリップボードを経由しないため、極めて高速）
rngDestination.Value = rngSource.Value
' 5. 書式設定の適用（直接参照によるプロパティ操作）
With wsTarget.Range("D2:D" & lastRow)
.NumberFormatLocal = "yyyy/mm/dd"
.HorizontalAlignment = xlCenter
End With
' 正常終了処理
MsgBox "処理が正常に完了しました。処理時間: " & Format(Timer - startTime, "0.00") & "秒", vbInformation, "完了"
GoTo Finally
ErrorHandler:
' 異常終了時のハンドリング
MsgBox "予期せぬエラーが発生しました。" & vbCrLf & _
"エラー番号: " & Err.Number & vbCrLf & _
"エラー内容: " & Err.Description, vbCritical, "システムエラー"
Finally:
' 6. 環境設定の復元（絶対に忘れてはならない）
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
.EnableEvents = True
End With
End Sub
コードのアーキテクチャ解説
1. `ThisWorkbook` の活用
`ActiveWorkbook` ではなく `ThisWorkbook` を使うことで、このマクロが含まれるブック自身を確実に指し示す。アドインや他ファイルからの誤作動を防ぐ基本だ。
2. ブロック一括転記 (`rngDestination.Value = rngSource.Value`)
セルを1つずつループで代入するのではなく、Rangeオブジェクト同士でValueを直結させる。これによってExcelの内部メモリ上で一瞬でデータが同期され、処理速度が何十倍にも跳ね上がる。
3. `Application` プロパティの厳格な管理
処理の最初に画面描画や自動計算を止め、最後に確実に復元（`Finally` ブロック）させる。これにより、バグ発生時にもExcelが「操作不能なフリーズ状態」に陥るのを防ぐ。
—
4. チーフアーキテクトからの提言
VBAは「簡易的なスクリプト言語」と侮られがちだが、オブジェクト指向の概念（厳密にはベースオブジェクトモデル）を正しく理解して書けば、プロフェッショナルな基幹システムにも匹敵する堅牢なツールへと昇華する。
「動けばいいや」の `Select` 連打コードから脱却し、「メモリ上でオブジェクトを支配する」 直接参照の境地へ踏み出してほしい。あなたの書くコードは、もっと速く、美しく、そして強靭になれるはずだ。
