(エクセル）シート別に指定した文字列を検索・置換したい（マクロ使用）

質問

以下のようにsheet1で指定した文字列をそれぞれのシートで検索・置換するプロシージャを教えてください。

sheet1は処理したいデータを入力するシートとします。
以下のように指定します。
A列はシート名
B列は検索文字
C列は置換文字

A列------B列--C列
sheet2----A----B
sheet3----B----A
sheet4----C----B

よろしくお願いします。

回答No.1

KURUMITO · ベストアンサー

次のようなコードではいかがでしょう。
Sub 置換()
Set WS1 = Worksheets("Sheet1")
Application.ScreenUpdating = False
For n = 1 To 10
If WS1.Cells(n, 1) = "" Then
Application.ScreenUpdating = True
Exit Sub
End If
If WS1.Cells(n, 1) <> "" Then
Ta = WS1.Cells(n, 1)
Tb = WS1.Cells(n, 2)
Tc = WS1.Cells(n, 3)
Worksheets(Ta).Activate
Cells.Replace What:=Tb, Replacement:=Tc, LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
WS1.Activate
End If
Next
End Sub

お礼

できました！！
ありがとうございます！！！
感動です。