【VBA】全てのシートを配列を使って高速に置換する方法

日々の業務で大量のデータを扱う際に、同じ文字列の置換作業は非常に手間がかかります。特に全シートに対して同じ処理を行う場合、時間と労力が莫大に必要です。この記事では、VBAを使用して高速化し、効率的に全シート内の特定文字列を一括で置換する方法をご紹介します。

サンプルコード

VBA

Option Explicit
Sub ReplaceTextInAllSheets()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim dataRange() As Variant
    Dim searchText As String, replaceText As String
    
    ' 置換する文字列を指定
    searchText = "旧文字列"
    replaceText = "新文字列"
    
    Application.ScreenUpdating = False ' 画面更新停止
    For Each ws In ThisWorkbook.Worksheets
        lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row ' 最終行取得
        dataRange = ws.Range("A2:A" & lastRow) ' 配列に読み込み
        
        ' 配列内の文字列置換処理
        For i = LBound(dataRange) To UBound(dataRange)
            If dataRange(i, 1) = searchText Then
                dataRange(i, 1) = replaceText
            End If
        Next i
        
        ' 配列をシートに戻す
        ws.Range("A2:A" & lastRow).Value = dataRange
    Next ws
    Application.ScreenUpdating = True ' 画面更新再開
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

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