【エクセル】複数の文字を同時に置換し、元の文字列の隣に出力したい

エクセルにて、

シート1（置換したい文字リスト）
Ａ　Ｂ
高　□
髙　□
恵　□
惠　□
ャ　□
…　…

を参考に、

シート2（反映したいリスト）
Ａ　　　　　Ｂ
高橋　恵　　□橋　□
髙橋　惠　　□橋　□
ジャイアン　ジ□イアン

となるようにしたいのですが、
こうしたことをマクロで実現可能でしょうか？


似たものを探したところ、
https://oshiete.goo.ne.jp/qa/1350775.html
や
https://kosapi.com/post-5824/
が近いのですが、元の文字列が維持できなかったり
複数の単語を同時に置換できなかったりして、求めているものと少し違います。
よろしくお願いいたします。

No.4 ベストアンサー 回答者： tom04 回答日時： 2019/01/13 08:00

こんにちは！

一例です。
標準モジュールにしてください。

Sub Sample1()
　Dim i As Long, wS As Worksheet
　　Set wS = Worksheets("Sheet1")
　　　With Worksheets("Sheet2")
　　　　.Range("A:A").Copy .Range("B1")
　　　　　For i = 1 To wS.Cells(Rows.Count, "A").End(xlUp).Row
　　　　　　.Range("B:B").Replace what:=wS.Cells(i, "A"), replacement:=wS.Cells(i, "B"), lookat:=xlPart
　　　　　Next i
　　　End With
End Sub

こんな感じで大丈夫だと思います。m(_ _)m

この回答へのお礼

回答ありがとうございます。
すごいです、正に実現したかったことです。
今まで自動化できず四苦八苦していたので本当に助かりました。
ありがとうございました！

お礼日時：2019/01/13 11:59

No.5 回答者： mike_g 回答日時： 2019/01/13 10:50

お示しの「シート1」から、どういう規則(ルール)を適用すれば「シート2」になり得るのか、分かり易く説明してください。

手段は当方で考えますから。

この回答へのお礼

No.4の方の回答で実現いたしました。
回答ありがとうございました！

お礼日時：2019/01/13 12:01

No.3 回答者： mabuterol 回答日時： 2019/01/13 00:44

つまりマクロ代わりに作ってくれって言ってるんですね。

なるほど。
できるけど面倒くさい。

この回答へのお礼

No.4の方の回答で実現いたしました。
回答ありがとうございました！

お礼日時：2019/01/13 12:01

No.2 回答者： nouble1 回答日時： 2019/01/13 00:32

先ず、

VBAに　用意された、
Dictionaryを　用い、
登録します。


次に、
Findを　用い、
全セルから　シート1記載を、
捜しだし、
先に　登録した、
Dictionaryに　かけ、
置換します。


如何でしょうか。

この回答へのお礼

No.4の方の回答で実現いたしました。
回答ありがとうございました！

お礼日時：2019/01/13 12:01

No.1 回答者： mabuterol 回答日時： 2019/01/13 00:16

要するには

①シート２の列 A を全て列 B にコピーする。
②シート 1 の置換条件を、上から下まで順番に for ループ使って、シート１の列Ｂを置換していく

という２ステップを丁寧にすれば実現可能では？

この回答へのお礼

早速のコメントありがとうございます。
①に関しては毎日頻繁にやる作業ですのでコピー含め自動化して1ステップでやりたいのと、
➁に関しては、当方マクロがほぼ組めず、仰られていることをその情報のみで記述するのが難しいです……。

お礼日時：2019/01/13 00:41