【VBA】開いている全ブックを完全一致で置換する方法

日々の業務では、大量のデータを扱うことが多く、その中で特定の文字列を一括で置き換える必要がある場合があります。手作業で行うと時間がかかるだけでなく、ミスも増えてしまいます。この記事では、Excel VBAを使って開いている全てのブック内で特定の文字列を完全一致で置き換える方法を紹介します。

サンプルコード

VBA

Option Explicit
Sub ReplaceTextInAllOpenBooks()
    Dim wb As Workbook, ws As Worksheet
    Dim searchText As String, replaceText As String
    searchText = "古い文字列"
    replaceText = "新しい文字列"
    Application.ScreenUpdating = False '画面更新を停止
    For Each wb In Workbooks
        If Not wb.Name = ThisWorkbook.Name Then '現在のマクロが入っているワークブックは対象外
            For Each ws In wb.Sheets
                Call ReplaceTextInSheet(ws, searchText, replaceText)
            Next ws
        End If
    Next wb
    Application.ScreenUpdating = True '画面更新を再開
End Sub

Sub ReplaceTextInSheet(ws As Worksheet, ByVal searchText As String, ByVal replaceText As String)
    Dim cell As Range
    For Each cell In ws.UsedRange
        If cell.Value = searchText Then
            cell.Value = replaceText
        End If
    Next cell
End Sub

よくある質問

Q 元に戻せますか？

VBAの実行結果は「元に戻す」が効きません。必ずバックアップを取ってから実行してください。

Q エラーが出たら？

シート名や列番号が正しいか確認してください。