なぜセル操作のテクニックが重要なのか
Excel VBAの実務において、最も頻繁に行うのが「セル範囲の指定」です。しかし、初心者のうちは「A1:D10」のように範囲を固定してしまいがちです。これではデータの量が変わるたびにコードを修正する必要があり、保守性が著しく低下します。
今回紹介する「Resizeプロパティ」と「Offsetプロパティ」を使いこなせれば、データの増減に自動で追従する柔軟なマクロが書けるようになり、作業効率が飛躍的に向上します。
ResizeとOffsetの基礎知識
これらは「基準となるセルから見て、どこを操作するか」を指定するためのプロパティです。
Resizeプロパティ
基準のセルを起点として、範囲のサイズ（行数・列数）を「変更」します。例えば、A1セルから「5行・3列」の範囲を指定したい場合に利用します。
Offsetプロパティ
基準のセルから見て、何行・何列「離れた」場所のセルを参照します。例えば、A1セルの「1行下」のセルを取得する場合などに使います。
実装の考え方
実務では、データが入力されている範囲を自動取得する「CurrentRegion」と、これらのプロパティを組み合わせるのが鉄則です。「どこからスタートして、どのくらいの範囲を、どの方向に広げるか」を論理的に整理することで、複雑な処理も簡潔に書けます。
サンプルプログラム：データ範囲の拡張と移動
以下のコードは、A1セルに入力されたデータから、その領域を動的に取得し、隣の列に結果を出力する例です。
Sub CellOperationExample()
Dim ws As Worksheet
Set ws = ActiveSheet
‘ A1セルを起点として、データが入力されている連続した範囲を取得
Dim rng As Range
Set rng = ws.Range(“A1”).CurrentRegion
‘ 1. Resizeを使って範囲を1列右に広げる（元の範囲＋隣の列）
‘ 例：A1:B10をA1:C10に広げる
rng.Resize(ColumnSize:=rng.Columns.Count + 1).Select
‘ 2. Offsetを使って範囲を1行下にずらして値を入力する
‘ 現在の範囲の「1行下、0列移動」した位置に値をセット
rng.Offset(1, 0).Value = “更新済み”
MsgBox “セル操作が完了しました。”
End Sub
応用と注意点：現場で陥りやすいバグを防ぐ
1. 範囲指定の重複に注意
Offsetで範囲をずらす際、元の範囲を超えてシートの末尾（1048576行目など）を指定してしまうとエラーになります。必ず範囲の境界を意識してください。
2. セルの結合に注意
セルが結合されている場合、ResizeやOffsetによる範囲指定が意図した通りにならないことがあります。実務の帳票などで結合セルが多い場合は、なるべく結合を解除してから処理を行うか、結合セルの左上端（セル範囲の左上）を基準にする工夫が必要です。
3. 処理速度の向上
セル操作を繰り返す処理（ループ内での書き込みなど）は低速です。今回紹介したプロパティを使って「範囲を一括で指定」し、配列や一括代入を行うことで、VBAの実行速度は劇的に速くなります。
まずは「固定のセル番地」を書く癖を捨てて、これらのプロパティで「基準からの相対位置」を書く練習をしてみてください。これがVBA上達の近道です。
