EXCEL VBA 文字列の連続での置換処理

Question

EXCEL VBAで文字列の置換を連続で行いたいです。

画像のようにシート「code」に新旧のコードのリストがあります。
シート「data」には旧コードで書かれたデータがあります。
シート「data」の中にある全ての旧コードを新コードに連続で置き換えていく処理のコードをご教授いただきたいです。

シート：code

シート：data

Comments

[hatena19]

シート「data」の画像を提示してください。
できれば、シートデータをコピーして貼り付けてもらうと、回答者が動作確認するのにデータを手入力する手間がはぶけるので助かります。（コードブロック内に貼り付けるとなおよいです。）

[hatena19]

このままだと丸投げの質問になります。
調べたこと、できるところまでいいので自分で書いたコードを提示してください。

Answer 1

たとえばこんな感じでどうでしょうか。

Sub sample()
    
    Dim code As Worksheet, data As Worksheet
    Set code = Worksheets("code")
    Set data = Worksheets("data")
    
    Dim dic As Object
    Set dic = CreateObject("Scripting.Dictionary")
    
    Dim i
    For i = 2 To code.UsedRange.Rows.Count
        dic(code.Cells(i, 1)) = code.Cells(i, 2)
    Next
    
    Dim c As Range, k
    For Each c In data.Cells.SpecialCells(xlCellTypeConstants)
        For Each k In dic.Keys
            c.Value = Replace(c.Value, k, dic(k))
        Next
    Next
End Sub

Comments

[hhhttt21]

ありがとうございます。助かりました。
無事作業完了できました。＾＾