このマクロを少し修正したい

質問

先日、こちらのサイトで下記のマクロを作っていただきました。
エクセルの置換えシートを使って、別のエクセルシートを一括置換えするマクロです。
ただ、置換えしたいシートのセルが結合していたり、文字の前に空欄が入っていると変換されません。
上記も認識しての置換えは、下記のマクロを修正して可能でしょうか？
修正したマクロを教えていただけると助かります。

　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

回答No.1

hotosys · ベストアンサー

結合セルについては
>SearchOrder:=xlByColumns
を
SearchOrder:=xlByRows
にしてみてはどうでしょうか？

>文字の前に空欄が入っていると変換されません
変換されると思うのですが、どういうデータの場合でしょうか？

お礼

回答ありがとうございます！
データは、文字だけのものがほとんどです。
何度も変換されないものを見ているうちに、空欄があると変換されないように感じました。
それも、セルの結合が原因なのかもしれませんね。
早速、こちらのマクロでやってみます。