エクセルの複数同時置換

マクロでしか出来ないと思います。 一応、標準モジュールに貼り付けることを想定していますが、どこでも構いません。フォームボタンなどに登録すると、簡単に使えるようになると思います。 Sub MultiReplacement() Dim MyWords As Variant Dim MyRepWords As Variant Dim Ans As Integer Dim Rng As Range MyWords = Array("A", "C") 'ここに検索語を入れてください。 MyRepWords = Array(1, 2) 'ここに置換語を入れてください。 '検索語と置換語を調べる If UBound(MyWords) <> UBound(MyRepWords) Then MsgBox "検索語数( " & UBound(MyWords) & _ " )と置換語数( " & UBound(