エクセルのセル内の改行を削除する方法

以下のようなセルが沢山あります。
※[改行]とは改行が入っているという意味です。

-------------------セルの中身はここから
[改行]
[改行]
[改行]
(1)みかん[改行]
(2)こたつ[改行]
(3)おもち[改行]
[改行]
[改行]
-------------------セルの中身はここまで。

このとき、文章が入っていないところの[改行]、および、最終行の[改行]だけを自動で削除して、
-------------------セルの中身はここから
(1)みかん[改行]
(2)こたつ[改行]
(3)おもち
-------------------セルの中身はここまで。
このように整形するためにはどういうVBAもしくはマクロを作ったらよいでしょうか？

No.2 ベストアンサー 回答者： keithin 回答日時： 2013/04/07 15:58

とりあえずＡ列について。

たとえば。
sub macro1()
　dim h as range
　dim res as string

　for each h in range("A1:A" & range("A65536").end(xlup).row)
　with application
　res = .substitute(h.value, vblf, " ")
　res = .trim(res)
　h = .substitute(res, " ", vblf)
　end with
　next
end sub

たとえば。
sub macro2()
　dim h as range
　dim a, x
　dim res as string

　for each h in range("A1:A" & range("A65536").end(xlup).row)
　a = split(h, vblf)
　res = ""
　for each x in a
　　if x <> "" then
　　　res = res & vblf & x
　　end if
　next
　h = mid(res, 2, 999)
　next
end sub

この回答へのお礼

一つ目に挙げて頂いた例を加工したところ、非常に簡単な方法で目的を実現することができました。
このプログラムの意味をいま辞書を引きながら学んでいるところです。
このたびはありがとうございました。

お礼日時：2013/04/07 16:42

No.5 回答者： kagakusuki 回答日時： 2013/04/07 16:30

　TRIM関数だけでは改行を削除する事は出来ませんし、CLEAN関数では全ての[改行]

が削除されるため、

(1)みかん(2)こたつ(3)おもち

となってしまい、

(1)みかん[改行]
(2)こたつ[改行]
(3)おもち

にはなりません。

　ですから、ワークシート関数で行う場合には、次の様な関数となります。

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TRIM(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1," ",CHAR(30)),"　",CHAR(31)),CHAR(10)," "))," ",CHAR(10)),CHAR(30)," "),CHAR(31),"　")

この回答へのお礼

関数を使うと非常に複雑なことができるのですね、とてもよい刺激になりました。
ありがとうございました。

お礼日時：2013/04/07 16:40

No.4 回答者： zur 回答日時： 2013/04/07 16:13

A1に入ってるなら

=CLEAN(A1)
セルの書式設定　配置タブ　折り返して全体を表示する
これではだめですかね

この回答へのお礼

ご回答ありがとうございます。
私はまだVBAをほとんど知らないのでCLEANを検索するきっかけになりました。

お礼日時：2013/04/07 16:39

No.3 回答者： KURUMITO 回答日時： 2013/04/07 15:59

回答No1です。

シート2のA1セルには次の式を入力して配置のタブで折り返して全体を表示するでもよいでしょう。

=IF(Sheet1!A1="","",TRIM(Sheet1!A1))

この回答へのお礼

重ねてご回答いただきましてありがとうございます。
勉強になりました。

お礼日時：2013/04/07 16:37

No.1 回答者： KURUMITO 回答日時： 2013/04/07 15:56

例えばシート1のA1セルから下方にそのようなデータが幾つも入力されているとします。

そこでシート2のA1セルには次の式を入力して下方にドラッグコピーします。

=IF(Sheet1!A1="","",MID(Sheet1!A1,FIND("(",Sheet1!A1),LEN(Sheet1!A1)-FIND("(",Sheet1!A1)))

A列を選択して「セルの書式設定」から「配置」のタブで「折り返して全体を表示する」にチェックをします。