VBA 文字列の置き換え　Replace関数

文字列の一部を置換するには、Replace関数がよく使われます。きょうは、その基本的な使い方を見てみましょう。

文字列の置き換え(Replace関数)

構文
Replace(expression, find, replace[, start[, count[, compare]]])
日本語で分かりやすく書くと
Replace(文字列, 検索文字, 置換文字, 開始位置, 置換回数, 比較モード)

Sub test()

Dim i As Long
For i = 2 To 24

　　　‘ 　A列なかの若林友香の名字を斉藤へ置き換える

        If Cells(i, 1) = "若林友香" Then
            Cells(i, 1) = Replace(Cells(i, 1), "若林", "斉藤")
        End If
    Next i

End Sub

実行結果

Replace関数で半角スペース削除

Sub test2()
    Dim myString As String
    Dim myFind As String
    Dim myRpl As String

　‘ サンプル文字列

myString = "北海道札幌市北区北七条西２丁目２０東京建物札幌ビル"

　‘ 検索文字　半角スペース

myFind = " "

　‘ 置き換え文字　　空文字

    myRpl = ""

    MsgBox Replace(myString, myFind, myRpl)
End Sub

実行結果

Replaceでセル内改行を削除する

Sub test3()

’セル内の改行を削除

    Dim buf As String
    buf = Replace(Range("B4"), vbLf, "")
    MsgBox buf

End Sub

実行結果