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