VBA Replace関数｜文字列を効率よく置換する方法を解説

Replace(expression, find, replace, [ start, [ count, [ compare ]]])

Sub ReplaceBasicExample()
    Dim text As String
    Dim result As String
    
    '// 変換前のテキスト
    text = "私はりんごが好きです。りんごは私のお気に入りの果物です。"
    
    '//Replace関数で置換
    result = Replace(text, "りんご", "オレンジ")
    
    '// 結果出力
    MsgBox "変換前: " & text & vbCrLf & "" & vbCrLf & "変換後: " & result
End Sub

Sub ReplaceHiraganaKatakana()
    Dim text As String
    Dim resultSensitive As String
    Dim resultInsensitive As String
    
    '// 変換前のテキスト
    text = "りんごとリンゴは同じではありません。"
    
    '// ひらがな・カタカナを区別する置換
    resultSensitive = Replace(text, "りんご", "オレンジ", , , vbBinaryCompare)
    
    '// ひらがな・カタカナを区別しない置換
    resultInsensitive = Replace(text, "りんご", "オレンジ", , , vbTextCompare)
    
    MsgBox "元の文字列: " & text & vbCrLf & vbCrLf & _
           "区別あり: " & resultSensitive & vbCrLf & vbCrLf & _
           "区別なし: " & resultInsensitive
End Sub

Sub ReplaceAllSpaces()
    Dim text As String
    Dim result As String

    '// 元の文字列
    text = "Hello World! Welcome to VBA."

    '// 空白を削除
    result = Replace(text, " ", "")

    '// 結果を表示
    MsgBox "変換前: " & text & vbCrLf & vbCrLf & _
        "変換後: " & result
End Sub

Sub TrimSpaces()
    Dim text As String
    Dim result As String

    '// 元の文字列
    text = "   Hello World! Welcome to VBA.   "

    '// 前後の空白のみ削除
    result = Trim(text)

    '// 結果を表示
    MsgBox "変換前: " & text & vbCrLf & "変換後: " & result
End Sub

Sub ReplaceWildcardIssue()
    Dim text As String
    Dim result As String
    
    '// 元の文字列
    text = "abc123abc456"
    
    '// ワイルドカード的な置換（実際には動作しない）
    result = Replace(text, "abc*", "")
    
    '// 結果を表示
    MsgBox "変換後: " & result
End Sub

Sub ReplaceWithRegex()
    Dim regex As Object
    Dim text As String
    Dim result As String
    
    '// 正規表現オブジェクトの作成
    Set regex = CreateObject("VBScript.RegExp")
    regex.Pattern = "abc\d+" '// abcに続く1つ以上の数字を検索
    regex.Global = True
    
    '// 元の文字列
    text = "abc123abc456"
    
    '// 正規表現で置換
    result = regex.Replace(text, "")
    
    '// 結果を表示
    MsgBox "変換後: " & result
End Sub

Sub ReplaceProductNames()
    Dim productList As Variant
    Dim i As Long

    '// 商品リスト
    productList = Array("りんご", "バナナ", "みかん", "りんご", "ぶどう")
    
    '// 置換前を出力
    Debug.Print "置換前の商品リスト: " & Join(productList, ", ")

    '// 配列内の商品名を一括置換
    For i = LBound(productList) To UBound(productList)
        productList(i) = Replace(productList(i), "りんご", "アップル")
    Next i

    '// 置換後を出力
    Debug.Print "置換後の商品リスト: " & Join(productList, ", ")
End Sub

Sub ReplaceProductCodes()
    Dim productCodes As Variant
    Dim i As Long

    '// 商品コードリスト
    productCodes = Array("A123", "B234", "A456", "C789", "A999")
    
    '// 置換前を出力
    Debug.Print "置換前の商品コードリスト: " & Join(productCodes, ", ")

    '// 配列内の商品コードを一括置換
    For i = LBound(productCodes) To UBound(productCodes)
        productCodes(i) = Replace(productCodes(i), "A", "X")
    Next i

    '// 置換後を出力
    Debug.Print "置換後の商品コードリスト: " & Join(productCodes, ", ")
End Sub

Sub ReplaceDepartmentCodes()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim originalText As String
    Dim replacedText As String

    '// シートと範囲を設定
    Set ws = ThisWorkbook.Sheets(1)
    Set rng = ws.Range("A2:A6") '// A列の範囲内を処理対象に設定

    '// セル範囲内をループ処理
    For Each cell In rng
        If Not IsEmpty(cell.Value) Then '// セルが空白でない場合
            originalText = cell.Value
            replacedText = Replace(originalText, "HR", "Human Resources")
            
            '// 変更前後をデバッグウィンドウに出力
            Debug.Print "変更前: " & originalText & " | 変更後: " & replacedText

            '// セルの値を置換後の値に変更
            cell.Value = replacedText
        End If
    Next cell

    '// 処理完了メッセージ
    MsgBox "部門コードの置換が完了しました。", vbInformation
End Sub