エクセルで入力したら別のセルに反映するマクロ｜別シートへ自動転記

2026年6月30日2026年7月28日

こんにちは、SkillStack Lab運営者のスタックです。

Excelでセルへ入力したときに、「別のセルへ同じ値を表示したい」「自動で計算したい」「別シートへ履歴として追加したい」と考えていませんか。

結論から言うと、単純に値を表示するだけなら数式、入力をきっかけに転記や履歴保存を行うならVBAマクロを使います。

VBAで自動反映する場合は、セルが変更されたときに動くWorksheet_Changeイベントを使用します。

ただし、コードをコピーするだけでは、無限ループ、二重転記、イベントが無効のまま戻らないといった問題が起こることがあります。

この記事では、別セルへの反映、同じ行での自動計算、別シートへの履歴追加という3つのコードと、安全に運用するための注意点を順番に解説します。

この記事で分かること

関数とVBAのどちらを使うべきか
入力した値を別のセルへ自動反映するコード
入力内容を別シートへ履歴として追加するコード
Worksheet_Changeを貼り付ける場所
無限ループや二重転記を防ぐ方法
マクロが動かない場合の確認項目

最初に確認｜関数とマクロのどちらを使うか

別のセルへ反映するだけなら、必ずしもVBAは必要ありません。

作りたい処理に応じて、最も簡単な方法を選びましょう。

やりたいこと	第一候補	設定例
A2の内容をD2にも表示する	数式	`=A2`
入力シートのA2を別シートに表示する	数式	`='入力'!A2`
単価と数量から金額を計算する	数式	`=B2*C2`
入力した瞬間に値を固定する	VBA	Worksheet_Change
入力内容を別シートの最終行へ追加する	VBA	最終行取得＋転記
入力後にフォームを空欄へ戻す	VBA	ClearContents
複数ファイルを毎月結合する	Power Query	フォルダーから取得

表示結果が元セルと連動して変わってよいなら数式、入力時点の値を固定して残したいならVBAと考えると判断しやすくなります。

関数で解決できる処理へ無理にマクロを導入すると、修正できる人が限られ、ファイル管理も複雑になります。

すぐ使える自動反映マクロ3種類

ここからは、よく使われる3つの処理を紹介します。

コードはすべて、後述する対象シートのシートモジュールへ貼り付けてください。

入力したら同じ行で自動計算する

Worksheet_Changeイベントがセル入力を検知して処理を実行する仕組み

次のコードは、B列の単価またはC列の数量を変更すると、同じ行のD列へ金額を表示します。

1行目は見出しとして除外し、複数セルをまとめて貼り付けた場合は処理しない初心者向けの構成です。

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.CountLarge > 1 Then Exit Sub
    If Target.Row < 2 Then Exit Sub
    If Intersect(Target, Me.Range("B:C")) Is Nothing Then Exit Sub

    On Error GoTo SafeExit
    Application.EnableEvents = False

    If Len(Me.Cells(Target.Row, "B").Value) = 0 _
       Or Len(Me.Cells(Target.Row, "C").Value) = 0 Then

        Me.Cells(Target.Row, "D").ClearContents

    ElseIf IsNumeric(Me.Cells(Target.Row, "B").Value) _
       And IsNumeric(Me.Cells(Target.Row, "C").Value) Then

        Me.Cells(Target.Row, "D").Value = _
            Me.Cells(Target.Row, "B").Value * _
            Me.Cells(Target.Row, "C").Value
    End If

SafeExit:
    Application.EnableEvents = True

End Sub

単純な掛け算だけなら、D2へ=B2*C2と入力して下までコピーする方が簡単です。

計算結果を値として固定したい場合や、入力後に別の処理も続けたい場合にVBAを選びましょう。

入力値を別のセルへ反映する

次のコードは、A2に入力した内容を同じシートのD2へ値としてコピーします。

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, Me.Range("A2")) Is Nothing Then Exit Sub

    On Error GoTo SafeExit
    Application.EnableEvents = False

    Me.Range("D2").Value = Me.Range("A2").Value

SafeExit:
    Application.EnableEvents = True

End Sub

反映先を別シートにする場合は、転記部分を次のように変更します。

ThisWorkbook.Worksheets("集計").Range("D2").Value = Me.Range("A2").Value

集計は実際のシート名、D2は反映先のセル番地へ置き換えてください。

数式で変化したセルはWorksheet_Changeの対象外です

Worksheet_Changeは、ユーザーの入力や外部リンクなどによってセルが変更されたときに動きます。

数式の再計算によって表示結果だけが変わった場合は動かないため、監視するセルには原則として直接入力するセルを指定してください。

入力内容を別シートへ追加する

次は、入力フォームのA2からC2を、別シートの最終行へ履歴として追加するコードです。

A2を日付、B2を商品名、C2を数量とし、最後にC2が入力されたタイミングで転記します。

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    Const DATABASE_SHEET As String = "データベース"

    Dim wsData As Worksheet
    Dim nextRow As Long
    Dim errorNumber As Long
    Dim errorDescription As String

    ' C2が変更された場合だけ処理する
    If Intersect(Target, Me.Range("C2")) Is Nothing Then Exit Sub

    ' 必須項目が空欄なら転記しない
    If Len(Me.Range("A2").Value) = 0 Then Exit Sub
    If Len(Me.Range("B2").Value) = 0 Then Exit Sub
    If Len(Me.Range("C2").Value) = 0 Then Exit Sub

    On Error GoTo ErrorHandler
    Application.EnableEvents = False

    Set wsData = ThisWorkbook.Worksheets(DATABASE_SHEET)

    ' A列の最終入力行の1行下を取得する
    nextRow = wsData.Cells(wsData.Rows.Count, "A").End(xlUp).Row + 1

    ' A2:C2をデータベースシートのA:Cへ転記する
    wsData.Cells(nextRow, "A").Resize(1, 3).Value = _
        Me.Range("A2:C2").Value

    ' D列へ転記日時を記録する
    wsData.Cells(nextRow, "D").Value = Now

    ' 転記後に入力欄を消す場合は、次の行の先頭にある記号を削除する
    ' Me.Range("A2:C2").ClearContents

SafeExit:
    Application.EnableEvents = True

    If errorNumber <> 0 Then
        MsgBox "転記中にエラーが発生しました。" & vbCrLf & _
               errorDescription, vbExclamation
    End If

    Exit Sub

ErrorHandler:
    errorNumber = Err.Number
    errorDescription = Err.Description
    Resume SafeExit

End Sub

このコードでは、処理途中にエラーが起きた場合も、最後にApplication.EnableEvents = Trueを実行する構成にしています。

転記後に入力欄を消したい場合は、Me.Range("A2:C2").ClearContentsの先頭にあるコメント記号を削除してください。

二重転記を防ぐポイント

A2からC2のどのセルを変更しても転記する設定にすると、3項目を入力する間に複数回記録される可能性があります。

そのため、最後に入力するセル、ステータス欄、登録済みフラグなど、処理を確定させるセルを1つ決めて監視する方法が安全です。

マクロを貼り付ける場所と設定手順

Worksheet_Changeは、一般的なマクロを記述する標準モジュールではなく、入力を監視するシートのシートモジュールへ記述します。

念のため、元のExcelファイルを複製する
Excelで対象ファイルを開く
Alt＋F11を押してVisual Basic Editorを開く
左側のプロジェクト一覧から対象ブックを探す
入力を監視する「Sheet1」などをダブルクリックする
表示されたコード画面へマクロを貼り付ける
セル番地とシート名を自分のファイルに合わせて変更する
マクロ有効ブック形式で保存する
コピーしたテスト用ファイルで動作を確認する

すでに同じシートへPrivate Sub Worksheet_Changeが存在する場合、同名のイベントをもう1つ追加することはできません。

新しい処理は、既存のWorksheet_Changeの中へ統合してください。

マクロ有効ブックで保存する

VBAコードを残すには、ファイルをExcelマクロ有効ブック（.xlsm）として保存します。

通常のExcelブック（.xlsx）として

保存すると、VBAコードを保持できません。

Microsoft公式のマクロ保存方法を確認する

Worksheet_Changeの仕組み

コードを安全に修正するために、最低限理解しておきたい4つの要素を確認しましょう。

Targetは変更されたセルを表す

Targetには、今回変更されたセルまたはセル範囲が渡されます。

A2を変更した場合はA2、A2からC2をまとめて貼り付けた場合はA2:C2がTargetになります。

複数セルの貼り付けを想定せずにTarget.Valueだけを判定すると、型の不一致などが起こることがあります。

Intersectで監視範囲を限定する

Intersectは、変更されたセルと監視対象のセルが重なっているかを確認します。

If Intersect(Target, Me.Range("A2:A10")) Is Nothing Then Exit Sub

このコードでは、A2からA10以外が変更された場合、すぐに処理を終了します。

監視範囲を限定すると、関係のないセル編集によってマクロが動くことを防げます。

Meで対象シートを明確にする

シートモジュール内のMeは、そのコードが記述されているワークシートを表します。

Range("A2")だけで記述するよりも、Me.Range("A2")とした方が、どのシートを操作するのか分かりやすくなります。

ThisWorkbookでコード側のブックを指定する

ThisWorkbookは、実行中のVBAコードが保存されているブックを表します。

作業中に別のブックが前面へ表示されても、転記先が意図せず変わることを防ぎやすくなります。

関数とVBAの違い

比較項目	Excel関数	VBAマクロ
別セルへの表示	簡単	可能だが過剰になりやすい
再計算	元データに合わせて変化	処理時点の値を固定できる
履歴の追加	不向き	最終行へ追加できる
入力欄の初期化	できない	処理後に消去できる
帳票・PDF・ファイル操作	不向き	対応しやすい
保守	セル上で確認しやすい	VBAを読める担当者が必要
セキュリティ警告	通常は発生しない	マクロの実行許可が必要

VBAが常に関数より優れているわけではありません。

「入力した瞬間の値を固定したい」「履歴を下へ追加したい」「入力後に別の操作を続けたい」という場合に、VBAの利点が出ます。

日付や入力履歴を自動で残す方法

ステータスを「完了」に変更したとき、右隣のセルへ完了日を記録する例です。

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.CountLarge > 1 Then Exit Sub
    If Intersect(Target, Me.Range("C2:C100")) Is Nothing Then Exit Sub

    On Error GoTo SafeExit
    Application.EnableEvents = False

    If Target.Value = "完了" Then
        Target.Offset(0, 1).Value = Date
    Else
        Target.Offset(0, 1).ClearContents
    End If

SafeExit:
    Application.EnableEvents = True

End Sub

Dateは日付、Nowは日付と時刻を記録します。

ただし、Excel上の日付やパソコンのユーザー名だけでは、改ざんを防止した正式な監査ログにはなりません。

給与、請求、勤怠、個人情報などの重要業務で変更履歴が必要な場合は、権限管理や操作ログを備えたシステムも比較してください。

無限ループを防ぐ方法

Application EnableEventsでWorksheet_Changeの再実行を防ぐ仕組み

Worksheet_Changeの処理内で別のセルを書き換えると、その書き換えによってイベントが再び動く場合があります。

これを防ぐのがApplication.EnableEventsです。

On Error GoTo SafeExit

Application.EnableEvents = False

' セルを書き換える処理

SafeExit:
Application.EnableEvents = True

重要なのは、イベントを停止することだけではありません。

エラーが発生した場合も、必ずTrueへ戻る経路を作ることが必要です。

Falseのまま処理が終了すると、その後のWorksheet_Changeイベントが動かなくなります。

Microsoft公式のEnableEventsプロパティを確認する

マクロが動かない場合の確認項目

シートモジュールへ貼り付けているか：標準モジュールではWorksheet_Changeとして動きません
監視するセルが合っているか：A2とA3など、セル番地の間違いを確認します
シート名が完全に一致しているか：空白や全角・半角も区別されます
.xlsmで保存しているか：.xlsxではVBAコードを保存できません
マクロが許可されているか：信頼できるファイルか確認してから有効化します
EnableEventsがFalseになっていないか：途中のエラー後にイベントが停止した可能性があります
数式結果の変化を監視していないか：再計算だけではWorksheet_Changeは動きません
同じイベントが重複していないか：1つのシートに同名のWorksheet_Changeを2つは作れません
複数セルを貼り付けていないか：コードが1セル入力だけを前提としている場合があります
結合セルを使っていないか：Targetの範囲が想定と変わる場合があります

イベントが無効になっている場合は、VBEのイミディエイトウィンドウへ次のコードを入力してEnterキーを押します。

Application.EnableEvents = True

Microsoft公式のWorksheet.Changeイベントを確認する

実務で使用する前の注意点

コードが一度動いたことと、会社の業務で安全に使えることは同じではありません。

本番利用前に確認すること

元ファイルを残してテスト用コピーで動かす
空欄、文字列、0、負数などでも確認する
複数セルの貼り付けを試す
シート名や列を変更した場合の動作を確認する
転記先が存在しない場合のエラーを確認する
同じデータが二重登録されないか確認する
処理後に件数や合計を照合する
コードの目的と変更箇所を記録する
作成者以外でも実行方法を理解できるようにする
信頼できないファイルのマクロを安易に有効化しない

Microsoftも、動作を理解していないマクロや、提供元を信頼できないマクロを安易に有効化しないよう案内しています。

Microsoft公式のマクロのセキュリティ情報を確認する

複数人で同時に更新する業務や、停止すると給与・請求・顧客対応へ影響する業務では、Excelマクロだけで作り込まない判断も必要です。

業務別にVBA、Power Query、Python、SaaSを比較したい方は、Excel自動化の方法をVBA・Power Query・Pythonまで比較した記事を確認してください。

VBA以外の方法が向いているケース

今回のような小規模な入力反映はVBAが得意です。

一方、処理の内容によっては、別の方法を選んだ方が作成と保守の負担を減らせます。

業務の状態	候補	理由
別セルへ値を表示するだけ	関数	コードが不要
毎月同じ形式のファイルを結合する	Power Query	取得と整形の手順を再利用しやすい
Excel内の細かなセル操作を行う	VBA	デスクトップ版Excelの操作に向く
大量のCSVや外部データを処理する	Python	Excel外のデータも扱いやすい
クラウド上で共同編集する	Office Scripts・Power Automate	Microsoft 365上で共有しやすい
勤怠・会計・問い合わせを管理する	SaaS	権限・履歴・同時利用を標準化しやすい