ExcelVBA シートに自動的に計算式｜関数を埋め込みして効率化する方法

ExcelVBA シートに 自動的に計算式（関数）を埋め込む ことで、手作業を減らし、効率化・ミス防止につながります。使い方や注意点など、サンプルコードをもとに具体的に解説します。

Excel VBA  自動的に計算式（関数）を埋め込む｜シーン

Excel VBA 自動的に計算式（関数）を埋め込む｜サンプルコード

Option Explicit

Sub 計算式を埋め込む_基本()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' B2セルに A2 + A3 の計算式を入れる
    ws.Range("B2").Formula = "=A2+A3"
    
    ' C2セルに SUM(A2:A10) の計算式を入れる
    ws.Range("C2").Formula = "=SUM(A2:A10)"
    
    ' D2セルに A2 * 1.1 (税率計算) を入れる
    ws.Range("D2").Formula = "=A2*1.1"
End Sub

標準モジュール

Option Explicit

Sub 計算式を埋め込む_R1C1()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' B2セルに A2 + A3 の計算式をR1C1形式で入れる
    ws.Range("B2").FormulaR1C1 = "=R2C1+R3C1"
    
    ' C2セルに SUM(A2:A10) の計算式をR1C1形式で入れる
    ws.Range("C2").FormulaR1C1 = "=SUM(R2C1:R10C1)"
    
    ' D2セルに A2 * 1.1 (税率計算) をR1C1形式で入れる
    ws.Range("D2").FormulaR1C1 = "=R2C1*1.1"
End Sub

標準モジュール

Option Explicit

Sub 計算式を一括適用()
    Dim ws As Worksheet
    Dim rng As Range
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set rng = ws.Range("B2:B10") ' B2～B10 に計算式を設定
    
    ' 各行で "A列の値 × 1.1" を計算
    rng.Formula = "=A2*1.1"
End Sub

標準モジュール

Option Explicit

Sub 最終行まで計算式を埋め込む()
    Dim ws As Worksheet
    Dim lastRow As Long
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' A列の最終行を取得
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' B2～B(最終行) に "A列の値 × 1.1" の数式を設定
    ws.Range("B2:B" & lastRow).Formula = "=A2*1.1"
End Sub

標準モジュール

Option Explicit

Sub 計算結果を値として貼り付け()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' B2～B10に数式を設定
    ws.Range("B2:B10").Formula = "=A2*1.1"
    
    ' 数式を値に変換
    ws.Range("B2:B10").Value = ws.Range("B2:B10").Value
End Sub

Excel VBA 自動的に計算式（関数）を埋め込む｜まとめ