一括置換マクロ - コピペでVBA(Excel)

こちらの記事はエクセルVBAをあまり知らない方でも利用できる「コピペでVBA(Excel)」としてもご活用できます。詳しくはこちらをご確認ください。

「コピペでVBA(Excel)」の概要と使い方
「コピペでVBA(Excel)」の概要と使い方
「コピペでVBA(Excel)」とは? エクセルVBAの知識がない人でもコードをコピペするだけで便利な処理が使えることを目指しています。汎用性のありそうなコードを順次公開
2018-02-12 14:00
はてブ

このマクロの解説

このコードを実行すると、選択範囲の文字列を一括で置換できます。文字列は、予め指定するパターン(上)と実行のたびに入力するパターン(下)を用意しました。

このマクロのコード

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

※コードをコピーする時は、右上のアイコンをクリックしてください

スポンサーリンク

シェアする

  • このエントリーをはてなブックマークに追加

フォローする