エクセルファイルの同じ個所の文字を自動で書き換える

2024-07-21

複数あるエクセルファイルの同じ個所にある文字を書き換えたり、同じ個所に同じ文字を入力する場合の方法です。

データが大量にある場合処理が大変です。何度もエクセルファイルを開け、文字を訂正、保存、そして閉じる。

書き換え例

ファイルリンクの絶対パスを相対パスに変更する例です。

対象は赤い枠で囲ったファイルです。

エクセルファイル「一覧_A001.xlsx」のセルG1のパスを変更します。

変更前：F:¥sample¥ファイル¥
変更後：ファイル¥

サンプルコード

この例では、ファイル保存を定数で指定していますが、このほかにダイアログボックスで指定する方法もあります。

コード

Sub sample()
    Dim wb As String
    Const fPath As String = "F:¥sample¥"
    Const cPath As String = "ファイル¥"

    wb = Dir(fPath & "一覧_" & "*.xlsx")  
 
    Application.ScreenUpdating = False 
    
    Do While wb <> ""
        Workbooks.Open fPath & wb
        Worksheets("Sheet1").Cells(1, 7) = cPath
        With Workbooks(wb)
            .Save
            .Close
        End With
            wb = Dir()
    Loop    

    Application.ScreenUpdating = True   
    MsgBox "終了しました"
End Sub