こちらの記事はエクセルVBAをあまり知らない方でも利用できる「コピペでVBA(Excel)」としてもご活用できます。詳しくはこちらをご確認ください。
このマクロの解説
このコードを実行すると、選択範囲の文字列を一括で置換できます。文字列は、予め指定するパターン（上）と実行のたびに入力するパターン（下）を用意しました。
このマクロのコード
Private Sub o_replace()
Dim c As Range
For Each c In Selection
c = Replace(c, "スズキ", "サトウ")
Next
End Sub
※コードをコピーする時は、右上のアイコン
をクリックしてください
Private Sub o2_replace()
Dim c As Range
Dim v_find As String, v_replace As String
v_find = InputBox("検索する文字列", "入力してください")
v_replace = InputBox("変更後の文字列", "入力してください")
For Each c In Selection
c = Replace(c, v_find, v_replace)
Next
End Sub
※コードをコピーする時は、右上のアイコンをクリックしてください
このマクロを使う理由
決まった頻度で置換を繰り返す作業がある場合は、手動で行うよりマクロのほうが間違いもストレスもなく実行できる。
プラスワン
Replace関数を増やせば複数の置換を同時に処理することもできる。
Private Sub o3_replace()
Dim c As Range
For Each c In Selection
c = Replace(c, "スズキ", "鈴木")
c = Replace(c, "サトウ", "佐藤")
Next
End Sub
※コードをコピーする時は、右上のアイコンをクリックしてください