VBA 置換 最終行までループ メモ

Sub cut()

Dim i As Long

Dim str As String

For i = 2 To Cells(Rows.Count, 5).End(xlUp).Row

Cells(i, 5).Value = Replace(Cells(i, 5).Value, "▼挨拶状(仏事用）の種類をお選びください", "▼挨拶状の種類をお選びください")

Next i

End Sub

--------------

Replace(文字列, 検索文字, 置換文字) 
文字列の検索文字を置換文字に置換します。

Replace(文字列, 検索文字, 置換文字, 開始位置, 置換回数, 比較モード) 
置換する開始位置を指定できます。複数の検索文字が見つかったときの置換回数を指定できます。比較モードで大文字と小文字を区別するか指定できます。