概要：Withステートメントとは何か
Excel VBAにおける「Withステートメント」は、オブジェクト参照を効率化し、コードの記述量を劇的に減らすための強力なツールです。プログラミングの初心者からベテランまで広く愛用されるこの構文ですが、単に「コードを短くするため」だけに使うものだと誤解されてはいけません。
Withステートメントの本質は、オブジェクトへのアクセス回数を最小化することにあります。VBAがオブジェクトを特定する際、ドット（.）で繋がれた参照一つひとつに対して、内部では「どの親オブジェクトの、どのプロパティか」という解決処理（名前解決）が行われています。Withステートメントは、この参照先をあらかじめ固定することで、実行時のオーバーヘッドを削減し、同時にメンテナンス性の高いクリーンなコードを実現します。本記事では、この基本機能を深掘りし、実行速度への影響と、実務で必ず直面する「やってはいけない注意点」について徹底的に解説します。
詳細解説：なぜWithステートメントで高速化されるのか
VBAの実行速度を最適化する際、最もコストがかかる処理の一つが「オブジェクトの特定」です。例えば、`Range(“A1”)`という記述を複数回行うと、その都度Excelは「A1セルはどのシートの、どのブックにあるのか」を内部的に特定します。
Withステートメントを使用すると、コンパイラや実行エンジンに対して「ブロック内のオブジェクトはこれだ」という情報をキャッシュさせることができます。特に、複雑な階層構造を持つオブジェクト（例：Workbooks(1).Worksheets(“Data”).Range(“A1”)）を操作する場合、この恩恵は絶大です。
しかし、ここで注意すべきは「速度向上のメカニズム」です。Withステートメントは、単純な変数代入よりもわずかに高速、あるいは同等である場合が多いですが、その真価は「コンパイル後の内部的なポインタ解決」にあります。何度も同じ階層を辿るコードを書くことは、プロセッサにとって無駄な探索を強いることになります。Withステートメントを用いることで、この探索コストを1回に集約できるのです。
サンプルコード：パフォーマンス最適化の比較
以下のコードは、セルに対して値を設定する処理を、通常の方法とWithステートメントを用いた方法で比較したものです。
Sub PerformanceTest()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets(1)
Dim i As Long
' 方法1：Withなし（毎回参照を解決するため低速）
For i = 1 To 10000
ws.Cells(i, 1).Value = "Test"
ws.Cells(i, 1).Font.Name = "Arial"
ws.Cells(i, 1).Font.Bold = True
ws.Cells(i, 1).Interior.Color = vbYellow
Next i
' 方法2：Withあり（参照を固定するため高速かつ簡潔）
For i = 1 To 10000
With ws.Cells(i, 1)
.Value = "Test"
.Font.Name = "Arial"
.Font.Bold = True
.Interior.Color = vbYellow
End With
Next i
End Sub
このコードを比較すると、方法2の方が圧倒的に可読性が高く、さらに内部的な参照解決の回数が削減されていることがわかります。ループ内での処理回数が増えるほど、この差は無視できない時間差となって現れます。
実務アドバイス：やってはいけない注意点
Withステートメントには、ベテランであっても陥りやすい罠がいくつか存在します。実務でコードを記述する際は、以下の3点に特に注意してください。
1. Withの入れ子（ネスト）は深追いしない
Withステートメントの中に別のWithステートメントを入れることは可能ですが、3段以上の入れ子はコードの可読性を極端に悪化させます。どこがどのオブジェクトを指しているのか、人間が追跡できなくなるからです。入れ子が必要な場合は、オブジェクトを一旦変数にセットし、階層を整理することを強く推奨します。
2. 変数への代入とWithの使い分け
ループ処理の冒頭でWithステートメントを使い、その中で別の処理に飛ぶようなコードはデバッグを困難にします。特に、Withブロック内で「別のシート」を操作しようとして混乱するケースが後を絶ちません。あくまで「一つのオブジェクトに対して連続した操作を行う」場合にのみ使用するのが鉄則です。
3. エラーハンドリングとの相性
Withステートメントを使用している最中にエラーが発生した場合、どのオブジェクトが原因でエラーになったのかを特定しづらくなることがあります。特に`On Error Resume Next`を多用するコードでは、With内のどこで失敗したのかを見失いやすいため、例外処理が必要な箇所では注意が必要です。
まとめ：保守性と速度のバランスを極める
Withステートメントは、VBAプログラミングにおける「可読性」と「効率性」を両立させるための必須スキルです。単なる省略記法として捉えるのではなく、オブジェクト参照の解決コストを意識したコーディングを行うことで、大規模なマクロであっても軽快に動作するシステムを構築することが可能になります。
今日から皆さんのコードを見直してみてください。同じオブジェクト名を何度も書いていないでしょうか？ `ws.Range(“A1”).Value = 1`、`ws.Range(“A1”).Font.Bold = True`といった記述が並んでいたら、迷わずWithステートメントに置き換えるべきです。
最後に、VBAのパフォーマンスにおいて最も重要なのは「無駄なアクセスを減らすこと」です。Withステートメントはその第一歩であり、さらに踏み込むのであれば、配列処理によるメモリ上での操作や、画面更新の停止（`Application.ScreenUpdating = False`）といった手法を組み合わせていくことが、プロフェッショナルな開発者への道となります。コードは短く、そして速く。この原則を守り、保守性の高い資産を残していきましょう。
