導入：なぜこのテクニックが重要なのか
実務において、表の末尾に合計や個数を算出する「集計行」を追加する作業は非常に頻繁に発生します。しかし、データの行数が都度変わる場合、手動で関数を入力したり、オートフィルで引き伸ばしたりするのは意外と手間で、ミスも起こりやすいものです。
VBAを使って「選択範囲の直下にCOUNT関数を自動設定」できれば、どんなデータ量であっても一瞬で正確な集計行を作成できます。また、値ではなく「数式」をセルに埋め込むため、後からデータが更新されても集計結果が自動で追従する柔軟なレポートが作成可能です。
基礎知識：FormulaR1C1プロパティとは
Excel VBAでセルに数式を入力する際、FormulaR1C1プロパティを使うのが実務では最も効率的です。
通常の「A1形式（A1, B2など）」ではなく、「R1C1形式（相対位置）」で数式を記述します。
・R（Row）：行の相対的な距離
・C（Column）：列の相対的な距離
例えば、「R[-1]C」は「一つ上の行の同じ列」を指します。これを使うことで、列がいくつあっても「上の範囲を数える」という動的な数式を簡単に生成できます。
実装・解決策：範囲の特定と相対参照の活用
今回の実装のポイントは、OffsetプロパティとResizeプロパティを組み合わせる点です。
1. 選択範囲を取得（Selection）
2. 選択範囲の行数をカウントし、その分だけ下にズラす（Offset）
3. ズラした位置のサイズを1行に調整（Resize）
4. そのセル範囲に対して、R1C1形式でCOUNT関数の数式を代入する
サンプルプログラム
以下のコードを標準モジュールにコピーして実行してください。データ範囲（数値が入っている列）を選択してから実行するのがコツです。
Sub InsertCountFormula()
‘ 変数の定義
Dim myRange As Range
Dim rowCount As Long
‘ 選択されている範囲を変数に格納
Set myRange = Selection
‘ 選択範囲の行数を取得
rowCount = myRange.Rows.Count
‘ 選択範囲の直下のセルにCOUNT関数を入力
‘ R[-rowCount]C:R[-1]C は「上のrowCount行から一つ上のセルまで」を指します
myRange.Offset(rowCount).Resize(1).FormulaR1C1 = _
“=COUNT(R[-” & rowCount & “]C:R[-1]C)”
MsgBox “選択範囲の下にCOUNT関数を設定しました。”
End Sub
応用・注意点：現場で陥りやすいバグの回避策
・列全体を選択しない：列全体（A:Aなど）を選択して実行すると、数式が無限ループ的な参照になる可能性があるため、必ずデータが入っているセル範囲を選択して実行するようにしてください。
・空白セルへの対応：もし数値以外のデータも混在している場合は、COUNT関数ではなくCOUNTA関数に変更することで、空白以外のセルをすべてカウントできます。
・エラー処理：もし選択範囲が空白の場合や、グラフなどを選択している状態で実行するとエラーになります。実務で配布するツールにする場合は、If文で「選択範囲がRangeオブジェクトか？」を確認するチェック処理を加えると、より堅牢なツールになります。
このテクニックを身につければ、毎日のルーチンワークである「集計表作成」の時間を大幅に短縮できます。ぜひ現場でお試しください。
