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

質問

エクセルのマクロの事で質問します。

エクセルにはセル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のセル】-->

以前いろいろと教えてもらったのですが、まだ自分では解決できそうにありません。

どなたか、ご指導のほどよろしくお願いします。

回答No.3

fujillin

＃2です。
ANo2の下の方法で、コピペのペーストを「値」で同じセルに行えば、式が消えて結果の文字列だけを残すことができます。
もしも、その状態でも重たいようなら、それは式のせいというよりも、全体の入力データが多くて重たくなっているので、マクロにしたところで軽量化は望めません。

ブックを分けるなど、他の手段を考えるほうがよろしいのではないでしょうか？
（エクセルは行や列の削除などを繰り返すと、データ内容に比して全体の容量は減らない（増える）ので、それで重くなる場合がまれにあります）

サンプルとしてrw行目を処理するマクロを作成しましたので、あとはアレンジしてください。（とりあえず2行目を処理するようにしてあります）
（質問文の様に定型部（タグなど）に$、@を含まない前提で作成しています）

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

お礼

ご回答ありがとうございます。
セルN2にちゃんと表示されています。

あと質問ついでにN2以降、N3N4・・・も同じように表示するにはどのようにすればいいでしょうか？よろしくお願いします。

回答No.2

fujillin

単純な文字の連結ですので、難しいことはありません。
　"○○" & Range("D1") & "××" & Range("H1") & "△△"
のような要領で結合した文字列を　Range（"N1")に入れれば良いです。
行方向に繰り返すのであれば、Range("D"& r)とするかCells(r,4)などとしてｒの値を変化させてループすれば良いです。（for・・・構文）

また、セルの中での改行コードはChr(10)です。通常の文字と同じようにして、改行位置にいれれば良いです。
（一般文では、改行はChr（13）だったりChr(10）+Chr(13）だったりしますが・・・）

マクロが自作できないようであれば・・・
N列のセルに
　="○○" & D1 & "×" & CHAR(10) & "×" & H1 & "△△"・・・
（関数の場合は、改行はCHAR(10）です）
のように式をいれれば、御指定の内容が表示されます。
（改行が「・」で表示される場合がありますが）

これを下にオートフィルしておいてから、N列を選択してコピー
O列に形式を選択してペーストで値とすればO列に求めるものが得られます。
改行の「・」表示を回避したければ、上記のコピーし時に、一度メモ帳にペーストしそれをコピーしてO列に貼り付ければ、改行表示になります。

お礼

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

今までに試した事は別のセルにhtmlのタグを入れておいて"&"を使ってつなぎ合わせていたのですが、件数が多くなるにつれてファイルが開かない上体です。
ですので、マクロを使ってファイル自体を軽くしようと思っています。

すいませんが、マクロを教えていただけませんでしょうか？
よろしくお願いします。

回答No.1

DIooggooID

例えば、セルＮ１には、

<div align="center"><b>【Ｄ１】</b></div>
<div align="center"><a rel="nofollow" href="【Ｈ１】"><img src="【Ｉ１】" border="0" alt="【Ｃ１】"></a></div>
<div align="center"><a rel="nofollow" href="【Ｈ１】">【Ｃ１】</a></div>
【Ｅ１】
【Ｆ１】
<!--【Ａ１】【Ｂ１】-->

のような内容にする、ということでしょうか？

補足

DIooggooIDさんこんにちは、説明が不十分で申し訳ありません。

DIooggooIDさんのおっしゃるとおりです。