ExcelVBAでセルに関数を入力する方法を徹底解説！初心者から実務で使えるテクニックまで

Excelを日常的に使っていると、「この関数をセルに自動で入力できたら便利なのに」と思う場面が少なくありません。特に業務で大量のデータを扱う場合や、同じ処理を繰り返す場合には、VBAを使ってセルに関数を入力することで効率が大幅にアップします。
本記事では、ExcelVBAを使ってセルに関数を入力する方法を、基本から応用までわかりやすく解説します。初心者でも理解できるようにサンプルコードを交えながら進めていきますので、ぜひ最後までご覧ください。

ExcelVBAでセルに関数を入力できるのか？
基本の書き方：FormulaプロパティとFormulaR1C1プロパティ
1. Formulaプロパティ
2. FormulaR1C1プロパティ
よく使う関数をVBAで入力するサンプル集
複数セルにまとめて関数を入力する方法
実務で使える応用テクニック
マクロ記録を活用して関数入力を学ぶ
エラーが出たときの対処法
実務で役立つシナリオ例
まとめ

ExcelVBAでセルに関数を入力できるのか？

Excelでは、セルに直接数式を打ち込むことができます。たとえば「=SUM(A1:A10)」と入力すれば合計が出せますよね。
VBAを使うと、この「セルに数式を入力する」という作業を自動化することができます。具体的には以下のようなコードで可能です。

Sub 関数入力例()
    Range("B1").Formula = "=SUM(A1:A10)"
End Sub

このコードを実行すると、B1セルに「=SUM(A1:A10)」が自動的に入力されます。つまり、VBAからセルに関数を入力するとは、セルに「文字列として数式を代入する」という仕組みなのです。

基本の書き方：FormulaプロパティとFormulaR1C1プロパティ

セルに数式を入力する際に使うのが、FormulaプロパティとFormulaR1C1プロパティです。

Formulaプロパティ

こちらは通常の「A1形式」で数式を入力する方法です。
例：

Range("C1").Formula = "=AVERAGE(A1:A10)"

この場合、セルC1に「=AVERAGE(A1:A10)」が入力されます。

FormulaR1C1プロパティ

もうひとつ便利なのが「R1C1形式」です。
例：

Range("C1").FormulaR1C1 = "=SUM(R1C1:R10C1)"

これは「A1:A10」をR1C1形式で書いた例です。RはRow（行）、CはColumn（列）を意味し、数字で位置を表します。相対参照も可能なので、大量の処理を自動化する際に便利です。

よく使う関数をVBAで入力するサンプル集

実務でよく使う関数を、VBAでセルに入力するコードをいくつか紹介します。

1. SUM関数

Range("B1").Formula = "=SUM(A1:A10)"

B1セルにA1～A10の合計を入力します。

2. AVERAGE関数

Range("B2").Formula = "=AVERAGE(A1:A10)"

平均値を求めるコードです。

3. IF関数

Range("B3").Formula = "=IF(A1>=60,""合格"",""不合格"")"

A1セルの値が60以上なら「合格」、それ以外なら「不合格」と表示します。

4. VLOOKUP関数

Range("B4").Formula = "=VLOOKUP(A1, D1:E10, 2, FALSE)"

A1の値を検索して、該当するD1:E10の範囲から2列目の値を返します。

5. TODAY関数

Range("B5").Formula = "=TODAY()"

今日の日付を表示します。

複数セルにまとめて関数を入力する方法

1つのセルだけでなく、範囲に対して一気に数式を入力することもできます。

Range("B1:B10").Formula = "=SUM(A1:A10)"

この場合、B1からB10まで同じ数式が入力されます。ただし注意点として、同じ数式がそのまま入力されるため、相対参照が効かない場合があります。その場合はFormulaR1C1を使うのがおすすめです。

実務で使える応用テクニック

1. 変数を使って柔軟に関数を入力

Sub 動的入力()
    Dim 行数 As Integer
    行数 = 20
    Range("B1").Formula = "=SUM(A1:A" & 行数 & ")"
End Sub

このように変数を使えば、データの行数が変わっても対応できます。

2. Offsetでずらして入力

Range("A1").Offset(0, 1).Formula = "=SUM(A1:A10)"

A1から右に1列ずらしたセル（B1）に関数を入力する例です。

3. ループで複数の行にIFを入力

Sub ループ入力()
    Dim i As Integer
    For i = 1 To 10
        Cells(i, 2).Formula = "=IF(A" & i & ">=60,""合格"",""不合格"")"
    Next i
End Sub

このコードを実行すると、B1～B10までにIF関数が自動で入力されます。

マクロ記録を活用して関数入力を学ぶ

初心者におすすめなのが「マクロの記録」を使う方法です。Excelには操作をそのままVBAコードに変換してくれる機能があり、セルに関数を入力する作業を記録すると自動的にVBAコードが生成されます。

例：セルに=SUM(A1:A10)を入力してマクロ記録を確認すると、以下のようなコードが出てきます。

ActiveCell.FormulaR1C1 = "=SUM(R1C1:R10C1)"

これを参考に自分のコードに取り入れると理解が深まります。

エラーが出たときの対処法

VBAでセルに関数を入力する際、よくあるエラーも知っておきましょう。

セル参照の記述ミス
- "=SUM(A1:A10)"のように、文字列として正しく書かないとエラーになります。
日本語関数と英語関数の違い
- VBAでは英語の関数名を使う必要があります。たとえば「=SUM」はOKですが「=合計」はNGです。
セル参照の相対・絶対指定
- $A$1のような絶対参照はそのまま書けますが、相対参照を大量に扱う場合はFormulaR1C1を使うのがおすすめです。