Replace関数で複数文字列の置換が可能かテストする ： Excel VBA

これまでVBAでReplace関数で置換した場合、単語レベルでしか使ったことがなかったので、改行が含まれる複数行でも問題なく置換できるかテストします。

これが可能ならば、大量にあるHTMLファイルのお決まりの文字列をまとめて置換えしたり、削除することが可能になります。

Replace関数の構文については「Step8：AMPファイルで必要のない文字列をReplace関数で検索し削除する｜Excelソフト」を参照してください。

Replace関数の複数行置換えテスト

下のシートは、C2に置換対象文字列、C3に検索する文字列、C4に置換える文字列が入力されています。
検索する文字列は大文字の「ＢＵＳＩＮＥＳＳ」を小文字の「business」に変えています。
置換える文字列は「受けておきます」を「受けます」に、「目的地」を「到着地」に、「ＢＵＳＩＮＥＳＳ」を「ビジネス」に変えています。


Replaceを使ったVBAを作成しました。


・引数のcountを省略し、置き換える文字列の個数を指定していません。
・compareの定数は、vbTextCompareにし大文字と小文字を区別していません。

Sub MyReplace()
    Range("C5") = Replace(Range("C2"), Range("C3"), Range("C4"), , , vbTextCompare)
End Sub

実行結果です。
問題なく置換ができています。
見つからない場合のReplace関数の戻り値は、置換対象文字列になります。
一見すると置換できたかどうか分かりにくいので、事前にInstr関数でチェックするようにします。


・Instr関数で見つからない場合は「見つかりませんでした」と表示し、見つかった場合はReplaceを実行します。

Sub MyReplace()
    If InStr(1, Range("C2"), Range("C3"), vbTextCompare) > 0 Then
        Range("C5") = Replace(Range("C2"), Range("C3"), Range("C4"), , , vbTextCompare)
    Else
        Range("C5") = "見つかりませんでした"
    End If
End Sub

テストします。
検索する文字列を変更し実行すると、「見つかりませんでした」と表示できました。


最後の改行文字も正常に置換できるかテストしました。
検索する文字列の最後に改行を追加すると、改行も正常に置換られ、結果の改行が削除できています。