Excel VBAで複数の置換をワンクリックで実行するマクロの作成方法

Visual Basic

2025.07.28

月ごとに報告書を作成する際、リンク先のセル参照を手動で置換するのは手間がかかります。特に、6月から7月への置換作業では、複数のセル参照を一括で変更したい場面が多いでしょう。この記事では、Excel VBAを使用して、複数のセル参照をワンクリックで置換するマクロの作成方法を解説します。

Excel VBAで複数の置換を一括で実行するマクロの作成
マクロの実行方法
まとめ

Excel VBAで複数の置換を一括で実行するマクロの作成

以下のVBAコードは、指定した範囲内で複数のセル参照を一括で置換するものです。これにより、手動での置換作業を大幅に削減できます。

Sub ReplaceMultipleValues()
    Dim ws As Worksheet
    Dim replaceList As Variant
    Dim cell As Range
    Dim i As Long

    ' 置換リストの定義（検索値と置換値のペア）
    replaceList = Array( _
        Array("$E$", "$F$"), _
        Array("$DI$", "$DJ$"), _
        Array("DG", "DH"), _
        Array("CU", "CV"), _
        Array("F4", "F7"), _
        Array("G4", "G7") _
    )

    ' ワークシートの指定
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 適切なシート名に変更してください

    ' 置換処理の実行
    For Each cell In ws.UsedRange
        For i = LBound(replaceList) To UBound(replaceList)
            If cell.Value = replaceList(i)(0) Then
                cell.Value = replaceList(i)(1)
            End If
        Next i
    Next cell
End Sub

このマクロは、指定したシートの使用範囲内で、置換リストに基づいてセルの値を一括で置換します。置換リストは、検索値と置換値のペアを配列として定義しています。必要に応じて、シート名や置換リストを変更してください。