エクセルの置換の事で？

質問

エクセルの事で質問です。
マクロを使って置換させたいと考えています。（エクセル2003使用）

例
A1 みかん　 B1 私が好きなのは***です。彼は***は嫌いです。
A2 りんご　　B2 私が好きなのは***です。彼は***は嫌いです。
A3 メロン　　B3 私が好きなのは***です。彼は***は嫌いです。
A4 スイカ　　B4 私が好きなのは***です。彼は***は嫌いです。
A5 バナナ　 B5 私が好きなのは***です。彼は***は嫌いです。

これを

A1 みかん　 B1 私が好きなのはみかんです。彼はみかんは嫌いです。
A2 りんご　　B2 私が好きなのはりんごです。彼はりんごは嫌いです。
A3 メロン　　B3 私が好きなのはメロンです。彼はメロンは嫌いです。
A4 スイカ　　B4 私が好きなのはスイカです。彼はスイカは嫌いです。
A5 バナナ　 B5 私が好きなのはバナナです。彼はバナナは嫌いです。

このようにボタンひとつで置換したいと考えています。

今までやって失敗した事は
ツール→マクロ→新しいマクロの記録で手動やってみたのですがどうしても出来ませんでした。

すいませんが、どなかた教えていただけないでしょうか？

よろしくお願いいたします。

回答No.1

merlionXX · ベストアンサー

***　の　*　がワイルドカードなので通常の置換えではできませんね。
~*~*~*　と、チルダを最初につけ文字列であることを明確にしなくては。
こんな感じですね。

Sub test01()
Dim i As Integer
With ActiveSheet
For i = 1 To 5
.Cells(i, "B").Replace What:="~*~*~*", Replacement:=.Cells(i, "A"), LookAt:=xlPart
Next
End With
End Sub

お礼

ご回答ありがとうございました。解決いたしました。

回答No.3

noname#79209

#2です
記述に間違いがありました。正しくは、

B1に
="私が好きなのは"&$A1&"です。彼は"&$A1&"は嫌いです。"

です。

回答No.2

noname#79209

マクロなど使わなくても

A1 みかん　 B1 私が好きなのは***です。彼は***は嫌いです。
を
A1 みかん　 B1 私が好きなのはみかんです。彼はみかんは嫌いです。

としたいなら、
B1に
="私が好きなのは"&$A1&"です。彼は"&$A1&"***嫌いです。"
ではマズイのですか？