エクセルのマクロで再度質問

質問

エクセルのマクロの件　再度質問です。

昨日、以下の質問をした者です。

===========================================================================
エクセルにはセルA～Mまでデータが入っています。（件数的にはかなりの量です）

そこでマクロを使ってセルＮ内に以下のようなHTMLを入れたいです。

<div align="center"><b>【Dのセル】</b></div>
<div align="center"><a rel="nofollow" href="【Hのセル】"><img src="【Iのセル】" border="0" alt="【Cのセル】"></a></div>
<div align="center"><a rel="nofollow" href="【Hのセル】">【Cのセル】</a></div>
【Eのセル】
【Fのセル】
<!--【Aのセル】【Bのセル】-->
===========================================================================

そこで、サンプルとして以下のマクロを教えてもらいました。

質問ですが、これを繰り返すにはどうすればいいでしょうか？
（N2以降、N3N4・・・も同じように表示するには）

Sub test()
　Dim st As String, s As String, stmp As String
　Dim sht As Worksheet, rw As Long, col As Long

　st = "<div align='center'><b>$4</b></div>@<div align='center'><a rel='nofollow' href='$8'><img src='$9' border='0' alt='$3'></a></div>@<div align='center'><a rel='nofollow' href='$8'>$3</a></div>@$5@$6@<!--$1$2-->"
　st = Replace(Replace(st, "@", Chr(10), 1, -1, 1), "'", Chr(34), 1, -1, 1)

　Set sht = ActiveSheet '//現在のシートを設定

'------- 1行分の処理　----
　rw = 2 '//処理対象の行番号（2行目に設定）
　s = st '//雛型の文字をコピー
　For col = 1 To 9 '//A～I列までをループ（col=列番号）
　　stmp = "$" & Format(col, "#")
　　 '//各セルの内容で置換え
　　s = Replace(s, stmp, sht.Cells(rw, col).Text, 1, -1, 1)
　Next col
　sht.Cells(rw, 14).Value = s '//結果をN列に入れる

End Sub

回答No.3

n-jun

ANo.1です。

以前の質問を参照したいのであれば、
http://okwave.jp/qa4469670.html
とする方がわかりやすいと思います。
（質問・回答の内容がわかりますので）

補足

n-junさん
こんにちは、仰るとおりでした。

また、この質問は解決できていませんのでSub test()～End Sub内を全て教えていただけると助かります。
よろしくお願いします。

回答No.2

fujillin

sirakuさん、こんにちは

QNo.4469670の最初の回答でもお答えしてありますように、行についてループするだけです。
（もともとの回答が、ループしやすいように作成したつもりです。）

たまたま、列（col）のループがその内側にありますので、それを参考にして
ください。

あと、追加で気が付いたのですが・・・
万一、セルの指定文のなかに「$+数字」があると置換えの際に、そちらも置き換えてしまう可能性が残っていますので、最初に、雛型の文章の$をキー入力できない文字（例えばChr(27)=ESCなど）に変換しておいて、あとの置換えはそれを対象に行うほうが確実でしたね。
（stmp = Chr(27) & Format(col, "#")などとして、再置換え）
要領は、もとの回答のままですので、適宜アレンジしてください。

また、QNo.4469670でもふれましたように、マクロ化しても軽くならない可能性もあります。
ついでながら、先の質問をクローズしてから次の質問をすることと規約にありますよ。

お礼

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

今、いろいろと試したのですが構文エラーになってしまいました。
すいませんが、Sub test()～End Sub内を全て教えていただけないでしょうか？
お手数お掛けしますが、よろしくお願いします。

それと前回の質問は締め切りしておきました。
（そんな規約があったとは知りませんでした）

回答No.1

n-jun

＞rw = 2 '//処理対象の行番号（2行目に設定）
変数rwを固定ではなくループさせればいいのでは？

お礼

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

すいませんが、どのように書けばいいのか分からないのでもう少し詳しく教えていただけないでしょうか？