Excel VBA replaceで文字列内の特定部分を別の文字列に置換するコード

以下のようなシーンで利用されます。

・文字列内の特定の単語やフレーズを別のものに置き換える。

・データクレンジングの一環として、不要な文字や記号を取り除く。

・特定のパターンに基づいてデータをフォーマットする。

Option Explicit

Sub ReplaceExample()
    Dim originalText As String
    Dim newText As String
    
    originalText = "I like Apple."
    newText = Replace(originalText, "Apple", "Orange")
    
    MsgBox newText ' 結果: "I like Orange."
End Sub

大文字と小文字を区別しない置換
「apple」から「APPLE」など、大文字小文字の違いを無視して置換する例

Option Explicit

Sub ReplaceIgnoreCaseExample()
    Dim originalText As String
    Dim newText As String
    
    originalText = "I like apple. I like APPLE."
    newText = Replace(originalText, "apple", "Orange", 1, -1, vbTextCompare)
    
    MsgBox newText 
End Sub

部分的に置換する
特定の部分だけを置換する例（先頭から1文字目以降で検索し、最初の1回だけ置換する）

Option Explicit

Sub ReplacePartialExample()
    Dim originalText As String
    Dim newText As String
    
    originalText = "I like Apple. Apple is tasty."
    newText = Replace(originalText, "Apple", "Orange", 1, 1)
    
    MsgBox newText 
End Sub