【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 = ThisWorkbook.Name Then '現在のワークブックは除く
            Call ReplaceTextInBook(wb)
        End If
    Next wb
    Application.ScreenUpdating = True '処理終了後に画面更新を再開
End Sub

Sub ReplaceTextInBook(ByRef wb As Workbook)
    Dim ws As Worksheet, lastRow As Long, i As Long
    For Each ws In wb.Sheets
        With ws.UsedRange
            .Replace What:="古い文字列", Replacement:="新しい文字列", LookAt:=xlWhole '置換対象の文字列を指定
        End With
    Next ws
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

置換対象の文字列やワークブック名、シート範囲が正しいか確認してください。