概要：ResizeプロパティがVBA開発の生産性を劇的に変える
Excel VBAにおけるセル操作において、最も頻繁に使用されるプロパティは間違いなく「Range」や「Cells」でしょう。しかし、それらの基本操作だけでは、動的に変化するデータ範囲に対応するのは困難です。ここで重要となるのが「Resizeプロパティ」です。
Resizeは、指定したセル範囲を起点として、行数や列数を自由に拡張・縮小できる強力なツールです。多くの初心者が「Range(“A1:D10”)」のように固定的な範囲指定に頼る中、実務で活躍するプロフェッショナルはResizeを駆使して「可変的な範囲」を柔軟に取得しています。本記事では、Resizeの基本的な仕組みから、実務で直面する複雑なデータ抽出を瞬時に解決するための応用テクニックまで、余すことなく解説します。
詳細解説：Resizeプロパティの基本構造と動作原理
Resizeプロパティの基本的な構文は以下の通りです。
オブジェクト.Resize(行数, 列数)
ここで重要なのは、引数である「行数」と「列数」は、あくまで「起点となるセルからどれだけ拡張するか」という相対的な数値を指定する点です。
例えば、Range(“A1”).Resize(5, 3) と記述した場合、A1セルを左上端として、下に5行、右に3列の範囲、つまり「A1:C5」という範囲が指定されます。
ここで多くの人が勘違いしやすいポイントは「行数や列数を省略した場合の挙動」です。引数を省略すると、その方向の範囲は変化しません。例えばRange(“A1:C10”).Resize(20)と記述した場合、列数は元の3列を維持したまま、行数だけが20行に拡張されます。このように、Resizeは単なる範囲指定を超えて、「特定の範囲をベースにした再定義」を行うための機能であると理解してください。
また、ResizeはOffsetプロパティと組み合わせて使うことで、真の力を発揮します。Offsetで「開始位置」をずらし、Resizeで「範囲の大きさ」を決定する。この「Offset ＆ Resize」の黄金コンビをマスターすれば、データが毎日変動する業務帳票の自動化も、一行のコードで完結させることが可能です。
サンプルコード：Resizeを活用した動的範囲の取得
それでは、実務で頻繁に使用するシーンを想定したサンプルコードを紹介します。以下の例では、データがどこまで続いているか分からない状況下で、ヘッダー行を除いたデータ範囲のみを正確に取得し、その範囲に対して書式設定や値の操作を行う方法を提示します。
Sub ResizeTechniqueExample()
Dim ws As Worksheet
Dim startCell As Range
Dim dataRange As Range
Set ws = ThisWorkbook.Sheets("Sheet1")
' A1セルを起点として、最終行まで取得する例
' CurrentRegionは便利ですが、途中に空行があると分断されるため、
' ResizeとOffsetを組み合わせた手法がより堅牢です
Set startCell = ws.Range("A1")
' 最終行を取得し、そこからResizeで範囲を定義
' 1行目が見出し、2行目からデータが始まると仮定
Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
' 2行目から最終行まで、かつA列からD列までの範囲を取得
' Offset(1, 0)で2行目へ移動し、
' Resize(lastRow - 1, 4)でデータ範囲を確定
Set dataRange = startCell.Offset(1, 0).Resize(lastRow - 1, 4)
' 取得した範囲に対して処理を実行
With dataRange
.Interior.Color = RGB(220, 230, 241)
.Borders.LineStyle = xlContinuous
.Font.Name = "Meiryo UI"
End With
MsgBox "データ範囲 " & dataRange.Address & " を設定しました。"
End Sub
このコードのポイントは、`startCell.Offset(1, 0).Resize(lastRow – 1, 4)` という記述です。`lastRow – 1` とすることで、見出し行を含めずにデータ行数だけを正確に指定しています。もしResizeを使わずに `Range(“A2:D” & lastRow)` と書く方法もありますが、Resizeを使用することで、「開始位置を基準にどれだけの規模で作業するか」という論理的な意図がコードから読み取りやすくなります。
実務アドバイス：なぜ「Resize」にこだわるべきなのか
実務でVBAを保守する際、最も恐ろしいのは「仕様変更」です。例えば、これまでA列からD列までだったデータが、急遽E列まで増えることになった場合、コード内で `Range(“A1:D100”)` のようにハードコーディングされていると、全ての箇所を修正しなければなりません。
しかし、Resizeを使い、`Range(“A1”).CurrentRegion.Resize(ColumnSize:=5)` のように記述していれば、列数の変更があったとしても、その一箇所を修正するだけでシステム全体が適応します。
また、Resizeは「配列処理」との相性が抜群です。RangeからVariant型の配列にデータを一気に代入し、メモリ上で高速計算を行った後、再びResizeを使ってシートに書き戻す。この一連の流れは、ループ処理でセルを一つずつ書き換える方法に比べて、処理速度が100倍以上向上することもあります。実務では「いかにセルへのアクセス回数を減らすか」がパフォーマンスの鍵となりますが、Resizeはまさにそのための必須パーツなのです。
さらに、Resizeを使用する際は「引数の指定ミス」に注意してください。行数や列数に「0」を指定すると実行時エラーが発生します。データが存在しない可能性がある場合は、必ず `If lastRow > 1 Then` のようなガード節を入れ、Resizeの引数が正の整数になることを担保する設計を心がけてください。
まとめ：Resize習得がVBA中級者への登竜門
Resizeプロパティを自在に操れるようになるということは、VBAを使って「Excelの構造を理解している」という証です。単にセルの色を変えるだけのマクロから、動的なデータ構造を制御するアプリケーション開発へとステップアップするためには、Resizeの概念が不可欠です。
今回のポイントを改めて整理しましょう。
1. Resizeは「起点からの拡張・縮小」を行うプロパティである。
2. Offsetと組み合わせることで、ワークシート上のあらゆる範囲を動的に特定できる。
3. ハードコーディングを避けるためにResizeを活用し、仕様変更に強いコードを書く。
4. 配列処理と組み合わせることで、劇的な高速化が実現できる。
Resizeをマスターすれば、これまで「どこまでがデータ範囲か？」と悩んでいた多くの課題が、わずか数行のロジックで解決できるようになります。ぜひ、明日からの業務で、意識的にResizeを使ったコードへの書き換えを試みてください。最初は戸惑うかもしれませんが、一度その便利さを知れば、もう元のような冗長なコードには戻れなくなるはずです。Excel VBAのさらなる高みを目指して、今日からResizeをあなたの強力な武器にしていきましょう。
