エクセル（マクロ）置換 結合されたセルに対しての置換
こんばんは、
今置換用のマクロをこちらで検索して使ってましたが
使用するエクセルのフォーマットが
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個のファイルを置換えするので
これが出来ればなぁと思っております。
大変お手数ですが教えて頂けると助かります
では、よろしくお願いいたします。
お礼
airhead-no1 様 ご回答有り難うございます。 できました！ お礼遅くなりもうしわけございませんでした。