エクセル マクロ 複数文字の削除と置換について

複数文字の削除と置換えを実行するマクロなのですが、
なぜか実行できません。

A列内
・激安販売、激安SALE、送料無料を削除
・EAGLEをイーグルに置換
・#をナンバーに置換

上記（画像参照）のような処理をしたいのですが、下記のVBAを
書き込み実行しても、A列が選択されるのみで、変化がありません。
エラーも表示されません。
なぜでしょうか？
※Office 2016使用


Sub 文字削除と置換()

Range("A:A").Select
With

.Replace What:="激安販売 ", Replacement:="", LookAt:=xlWhole
.Replace What:="EAGLE", Replacement:="イーグル"
　 .Replace What:="激安SALE", Replacement:=""
　 .Replace What:="送料無料", Replacement:=""
　 .Replace What:="#", Replacement:="ナンバー"
　
End With

End Sub

No.1 ベストアンサー 回答者： tom04 回答日時： 2018/07/22 19:23

こんばんは！

＞・・・LookAt:=xlWhole
だと完全一致のセル全体になりますので、
＞・・・lookat:=xlPart
にする必要があると思います。

Sub Sample1()
　With Range("A:A")
　　.Replace what:="激安販売", replacement:="", lookat:=xlPart
　　.Replace what:="激安SALE", replacement:="", lookat:=xlPart
　　.Replace what:="EAGLE", replacement:="イーグル", lookat:=xlPart
　　.Replace what:="#", replacement:="ナンバー", lookat:=xlPart
　End With
End Sub

でお望みの結果にならないでしょうか？

※　EAGLE　と　#　は半角文字としています。m(_ _)m

この回答へのお礼

ありがとうございます！望んでいた結果になりました！本当にたすかりました！！

お礼日時：2018/07/24 10:04