Excelセル内の改行付き文章にHTMLタグを付与

Excelのセル内に以下の様な改行付きの文章が入っていて、
現在、それを1行ずつセル内選択して文章を抜き出して、HTMLタグをつけています。

同じ形式のセルが多数(100以上)あり、全部手動で抜き出すのは、
スゴく非効率で時間がかかります。。

------------------------↓セル内
ダミーテキストテキストテキストテキストテキストテキストテキストテキストテキストテキストテキストテキストテキストテキストテキスト

1．ダミータイトル
ダミーテキストテキストテキストテキストテキストテキスト

2．ダミータイトル
ダミーテキストテキストテキストテキストテキスト

3．ダミータイトル
ダミーテキストテキストテキストテキストテキストテキストテキストテキスト
------------------------↑セル内
※テキストはダミーです。本来は日本語文章が入ります。
※上記例は1～3までの数字がありますが、5まであったりします。少ないのは2まで。
※セル内の一番上には1行綴りの文章があります。
※タイトル（上記はダミータイトルと書かれた部分）の上には空白改行が1行あります。
※タイトル（上記はダミータイトルと書かれた部分）の下には1行綴りの文章があります。

上記の例を、Dreamweaverで現在は手動で下記のようにしています。
-----------------------------
<div class="cntt">
<p>ダミーテキストテキストテキストテキストテキストテキストテキストテキストテキストテキストテキストテキストテキストテキストテキスト</p>

<h3>1．ダミータイトル</h3>
<p>ダミーテキストテキストテキストテキストテキストテキスト</p>

<h3>2．ダミータイトル</h3>
<p>ダミーテキストテキストテキストテキストテキストテキスト</p>

<h3>3．ダミータイトル</h3>
<p>ダミーテキストテキストテキストテキストテキストテキスト</p>
</div>
-----------------------------
1行ずつ選んでh3で囲み・・・みたいな事をシコシコとやっていると腱鞘炎になりそうです。
これをできるだけ自動でできないでしょうか。。。。？

Windows7 , Excel2007 , Dreamweaver CS5.5を使用しています。

ご教授お願い致します。

No.1 回答者： anmochi 回答日時： 2013/06/13 19:56

Excelシートの中でセルを分けるといいんじゃないかな。

A列に2行目から
ダミーテキストテキストテキストテキストテキストテキストテキストテキストテキストテキストテキストテキストテキストテキストテキスト
ダミータイトル
ダミーテキストテキストテキストテキストテキストテキスト
ダミータイトル
ダミーテキストテキストテキストテキストテキスト
ダミータイトル
ダミーテキストテキストテキストテキストテキストテキストテキストテキスト
と入力してください。セルA2からセルA6まで。

B列に1行目から
<div class="cntt">
=IF(ISBLANK(A2),"","<p>" & A2 & "</p>")
=IF(ISBLANK(A3),"","<h3>１．" & A3 & "</h3>")
=IF(ISBLANK(A4),"","<p>" & A4 & "</p>")
=IF(ISBLANK(A5),"","<h3>２．" & A5 & "</h3>")
=IF(ISBLANK(A6),"","<p>" & A6 & "</p>")
=IF(ISBLANK(A7),"","<h3>３．" & A7 & "</h3>")
=IF(ISBLANK(A8),"","<p>" & A8 & "</p>")
=IF(ISBLANK(A9),"","<h3>４．" & A9 & "</h3>")
=IF(ISBLANK(A10),"","<p>" & A10 & "</p>")
=IF(ISBLANK(A11),"","<h3>５．" & A11 & "</h3>")
=IF(ISBLANK(A12),"","<p>" & A12 & "</p>")
=IF(ISBLANK(A13),"","<h3>６．" & A13 & "</h3>")
=IF(ISBLANK(A14),"","<p>" & A14 & "</p>")
=IF(ISBLANK(A15),"","<h3>７．" & A15 & "</h3>")
=IF(ISBLANK(A16),"","<p>" & A16 & "</p>")
=IF(ISBLANK(A17),"","<h3>８．" & A17 & "</h3>")
=IF(ISBLANK(A18),"","<p>" & A18 & "</p>")
</div>
とそれぞれ入力してください。セルB1からセルB19まで。

すると、B1からB19を範囲選択してメモ帳に貼り付けると（空行の位置はともかく）今まで手入力していたタグ（と数字）が自動で追加されている状態になると思うよ。空行の位置が変わってもWebブラウザ上に表示される内容はほとんど変わらないし、メモ帳の方で空行を調整するのだけでタグを手打ちするよりはだいぶ楽なんじゃないかと。
上記の例ではH3にあたる部分を8個まで自動で作る事ができる。もちろん、今まで一つの「コンテンツ」につき１セルでやってきた事を複数セルのブロック単位（今回の例ではA1:B19の38セルが一塊になる）で管理する事になるので、そこだけ気をつけないといけない。

これより高度な事をしようとするならVBAという仕組みを使う事になるかな。例えば、Excelの管理は今までと同じ１セル１コンテンツのままでセル内の改行を自動認識して自動的にタグを追加してクリップボードにコピーするってなのもVBAならできる。