エクセルのマクロ（VBA）の事で質問です。

質問

エクセルのマクロ（VBA）の事で質問です。
Ａ列のA１からA100ぐらいまで、各セルに以下のような文章があるとします。
--------------------------------------------
Ａ１
今日は、天気です。

明日も良い天気になるといいですね。
--------------------------------------------
Ａ2
今日は野菜が安いです。

昨日よりも安くて主婦には助かります。

味も美味しいです。
--------------------------------------------
・
・
・
このような感じでセルの中に色々と文章が入っています。
これをマクロ（VBA）を使いＢ列には以下のようにしたいです。
--------------------------------------------
Ｂ１
今日は、天気です。<br />
<br />
明日も良い天気になるといいですね。
--------------------------------------------
Ｂ2
今日は野菜が安いです。<br />
<br />
昨日よりも安くて主婦には助かります。<br />
<br />
味も美味しいです。
--------------------------------------------
・
・
・

要するに、改行のところに<br />タグを入れたいのです。

今までは、テキストエディタにコピペして、置換していたのですが、
マクロ（VBA）では、どのようにすればいいのでしょうか？

教えて頂けないでしょうか？

よろしくお願いします。

回答No.1

f272 · ベストアンサー

こんな感じ？
Sub Macro1()
For Each s In Range("A1:A100")
s.Offset(, 1) = Replace(s, Chr(10), "<br />" & Chr(10))
Next
End Sub

でもVBAなど使わなくても，セル関数で
=SUBSTITUTE(A1,CHAR(10),"<br />"&CHAR(10))
としたらどうだろう？

お礼

回答ありがとうございます。

思うようにできました！

回答No.2

keithin

コピーして、置換します。

sub macro1()
range("A:A").copy destination:=range("B1")
range("B:B").replace what:=vblf, replacement:="<br/>" & vblf, lookat:=xlpart
end sub

みたいな。

お礼

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

思うようにできました！