Replace関数は文字列を置換・削除する利用度の高い関数

Sub Replaceサンプル1()
    Dim i As Long
        For i = 2 To 6
            With Range("C" & i)
        'Replace関数で各セルの「円」を削除する
                .Value = Replace(Range("B" & i), "円", "")
        '表示形式を変更「通貨」表示に変更する
                .NumberFormatLocal = "\#,##0;\-#,##0"
            End With
        Next i
End Sub

Sub Replaceサンプル2()
    Dim MyRange As Range
    Dim ASS As String
        '条件指定文字を変数に代入する
        ASS = "田"
        For Each MyRange In Range("B2:B6")
            If InStr(MyRange, ASS) <> 0 Then
        '条件に合致する名前のドメインを置換する
                MyRange.Offset(, 2) = _
                    Replace(MyRange.Offset(, 1), "ABCD.com", "XYZ.co.jp")
            Else
        '条件に合致しない場合はスルーする
                MyRange.Offset(, 2) = MyRange.Offset(, 1)
            End If
        Next
End Sub

Sub Replaceサンプル3()
    Dim TagArea As Range
        For Each TagArea In Range("B2:B6")
        '改行コードを空文字に置換（つまり削除）する
                TagArea.Offset(, 1) = Replace(TagArea, vbLf, "")
        Next
End Sub

Sub Replaceサンプル4()
    Dim 甲 As String, 乙 As String, 丙 As String
    Dim 丁 As Integer, 戊 As Integer, 己 As Integer
    Dim i As Long
        For i = 3 To 7
            甲 = Range("B" & i)
            乙 = Range("C" & i)
            丙 = Range("D" & i)
            丁 = Range("E" & i)
            戊 = Range("F" & i)
            己 = Range("G" & i)
            Range("H" & i) = Replace(甲, 乙, 丙, 丁, 戊, 己)
        Next i
End Sub