エクセル（マクロ）置換 結合されたセルに対しての置換

こんばんは、
今置換用のマクロをこちらで検索して使ってましたが
使用するエクセルのフォーマットが
1セルに入力されてるのではなく、３つのセルを結合されている物に入力されているもので
下記のマクロだと、正しく置換されておりません。

置換変換用のシートと、置換したいシートがある状態で、
下記のマクロだとなぜ結合されたセル内の文字は置換えできないのでしょうか？
結合されてないセルですと、置換はちゃんとされております。

Sub 置換()
With ThisWorkbook
If ActiveSheet Is .Worksheets(1) Then Exit Sub
For i = 1 To .Worksheets(1).Range("A65536").End(xlUp).Row
ActiveSheet.Cells.Replace _
What:=.Worksheets(1).Range("A" & i).Value, _
Replacement:=.Worksheets(1).Range("B" & i).Value, _
LookAt:=xlPart, SearchOrder:=xlByColumns
Next
End With
End Sub


明日の昼までに5000個のファイルを置換えするので
これが出来ればなぁと思っております。
大変お手数ですが教えて頂けると助かります
では、よろしくお願いいたします。

No.1 ベストアンサー 回答者： xls88 回答日時： 2009/07/20 02:48

試しに

ActiveSheet.Cells.Replace _
を
ActiveSheet.Range("A1:Z200").Replace _
のように対象セル範囲をしていすればどうなるでしょうか。

この回答へのお礼

ありがとうございます～～～～～！！！！
他のセルの結合されている部分まで全て置換えできました

あとはセル範囲を可能な値にしてテストしてみます。
ありがとうございます～～～～～～～～～～m(__)m

お礼日時：2009/07/20 02:52