Excelの同時置換の置換場所指定

質問

以前、どなたかの質問の回答で…
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(MyRepWords) & " )数が違います。", 64
　　Exit Sub
　End If

　Set Rng = Selection 'マウスで範囲を選択してください。
　If Rng.Count = 1 Then
　　Ans = MsgBox("セル１つしか選択されていませんが、よろしいですか？", vbYesNo)
　　If Ans = vbNo Then
　　　Exit Sub
　　End If
　End If
　'実行
　For i = LBound(MyWords) To UBound(MyWords)
　　Cells.Replace What:=MyWords(i), Replacement:=MyRepWords(i), _
　　LookAt:=xlPart, _
　　MatchCase:=True
　Next i
End Sub
------------------------
というものを出してくれた方が折られました。それでなのですが…
置換語の場所を指定する場合はこれをどの用にしたらよいのでしょうか？？
たとえば、セルA1から並んでいる、りんご/みかん/めろん…を、ほかの列CにApple/Orange/Mellon…するには？？教えてくださいませ。

回答No.1

nag0720

For文とReplace文を変えてください。
置換語が10個あったとしたら、
For i = 1 To 10
Rng.Replace What:=Cells(i, 1), Replacement:=Cells(i, 3), LookAt:=xlPart, MatchCase:=True
Next i