【VBA】開いている全ブックをバックグラウンドで置換する方法

日々の業務で大量のデータを扱う際、特定の文字列を一括で置き換える作業は手間がかかるものです。この記事では、開いている全てのワークブックに対してバックグラウンドで文字列の置換を行うVBAマクロを作成します。これにより、効率的な業務処理が可能になります。

サンプルコード

VBA

Option Explicit
Sub ReplaceTextInAllOpenBooks()
    Dim wb As Workbook, ws As Worksheet
    Application.ScreenUpdating = False '画面更新を停止
    For Each wb In Workbooks
        If Not wb.Name Like "Book*.xls*" Then 'ブック名が「Book1」等でない場合のみ処理
            For Each ws In wb.Sheets
                ws.Cells.Replace What:="古い文字列", Replacement:="新しい文字列", LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False '置換処理
            Next ws
        End If
    Next wb
    Application.ScreenUpdating = True '画面更新を再開
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

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