【エクセル VBA】置換処理について

VBAのreplaceを使って処理を行っているのですが、今後置換対象が増えることもあり、エクセルの特定のシートの特定の列に「置換対象」と「置換後」欄を作成したいと思っております。
（今までreplaceで入れていた　 .Replace what:="あ", Replacement:="い"を.Replace what:="置換対象欄に書いてある言葉１", Replacement:="置換後欄に書いてある言葉１"という風にしたい）


説明が悪いとは思いますが、やり方を教えてください。

No.1 ベストアンサー 回答者： tom04 回答日時： 2017/09/07 19:37

こんばんは！

Sheet2のA1セル以降に「置換対象」、B1セル以降に「置換後」の表を作成しておき、
Sheet1のすべてのセルを対象とし、置換するとします。

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

こんな感じではどうでしょうか？m(_ _)m

No.2 回答者： GooUserラック 回答日時： 2017/09/07 19:41

置換対象が X列(24列目)、置換後が Y列(25列目) に有り、タイトル行が有りリストが２行目から始まるとしたら以下のような感じではいかがですか？

行 = 2
Do While Cells(行, 24).Value <> ""
.Replace what:=Cells(行, 24).Value, Replacement:=Cells(行, 25).Value
行 = 行 + 1
Loop