マクロについて質問です

質問

以前以下のようなコードを教わった物です。

Sub 引用文作成()

If Not TypeOf Selection Is Range Then Exit Sub

Dim i As Long
Dim sPrev As String

Open "C:\test.tmp" For Output As #1

' // Output html
sPrev = ""
For Row = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Print #1, "●"; Cells(Row, 1) & "...<a href=""" & Cells(Row, 2) & """ target=""_blank"">続きはこちら</a><br>---<br>"
Next

Close #1
Shell "notepad.exe C:\test.tmp", vbNormalFocus

End Sub

この場合、Aのセルに文章を入れ、Bの文章にURLると

●文章1...<a href="http://123.com/" target="_blank">続きはこちら</a><br>---<br>
●文章２...<a href="http://123.com/" target="_blank">続きはこちら</a><br>---<br>

このように出力してくれますが、これを次のように出力する場合はどのようにすればいいでしょうか？

Aのセルにタイトル、BのセルにURL、Cのセルに文章を入れて以下のようなリンク集っぽいのを作りたいです。

<p>●<a href="http://123.com/" target="_blank">タイトル１</a><br>
文章</p>
<p>●<a href="http://123.com/" target="_blank">タイトル２</a><br>
文章</p>

Cells(Row, 3)を追加して色々と試したのですがどうも上手くいきません。

よろしくお願いします。

回答No.1

xls88 · ベストアンサー

For文を下記のようにすれば良いと思います。

For row = 2 To Cells(Rows.Count, 1).End(xlUp).row
　　Print #1, "<p>●<a href=""" & Cells(row, 2) & """target=""_blank"">" & Cells(row, 1) & "</a><br>" & Cells(row, 3) & "</p>"
Next

お礼

ご回答ありがとうございます。うまくできました！