Excelのテーブル（ListObject）では、構造化参照を使って数式を設定することで、行ごとの計算が自動的に適用されるようになります。
VBAからも構造化参照を使って、「@列名」形式の計算式をテーブル全体に一括設定することが可能です。
本記事では、新しい列を追加し、構造化参照で数式を設定する方法についてご紹介いたします。
目次
想定される活用シーン
- 単価 × 数量 で小計列を自動追加したい。
- Excelフォームで入力されたデータに自動で計算列を加えたい。
- テーブル構造に合わせて柔軟にVBAコードを活用したい。
サンプルコード：構造化参照を用いて計算列を追加
Sub AddCalculatedColumn()
Dim salesTable As ListObject
Dim calcField As ListColumn
' テーブル「販売データ」を対象とする
Set salesTable = ActiveSheet.ListObjects("販売データ")
' 新しい列「小計」を末尾に追加
Set calcField = salesTable.ListColumns.Add
calcField.Name = "小計"
' 構造化参照を使って数式を設定（@は行単位での参照）
calcField.DataBodyRange.Formula = "=[@価格]*[@数量]"
End Sub
解説：構造化参照とは
構造化参照とは、テーブル内部でのセル指定方法で、以下のような書き方になります。
| 構造化参照 | 内容 |
|---|---|
[@列名] | 現在の行の指定列（例：[@価格]） |
[列名] | 列全体を参照（関数内で使用） |
テーブル名[@列名] | テーブル名付きの参照も可能 |
[@列名]の形式は行ごとの計算に特化しており、VBAから設定する数式でもそのまま使用できます。
エラー回避のポイント
- 列名に全角スペースや記号があるときは、
[@[列 名]]のように括弧で囲む必要があります。 - 列がすでに存在する場合に
.Addを繰り返すとエラーになります。既存列の有無を確認する処理を加えると安全です。
応用：合計列を追加して集計する
' 合計列の計算（列全体参照を使用）
ActiveSheet.Range("G1").Formula = "=SUM(販売データ[小計])"
まとめ
構造化参照は、Excelテーブルにおける堅牢で可読性の高い数式設定手法です。
VBAからも簡単に構造化参照形式を扱うことができ、業務用シートの自動計算列追加に大変便利です。
「列の追加」→「構造化参照での数式設定」を組み合わせることで、より柔軟で信頼性の高い処理が実現できます。
業務効率化や自動帳票作成に、ぜひお役立てください。
