エクセルで、「セル内改行」を自動化したいのですが・・・。

質問

今回もお世話になります。

今回の目的ですが、作業の自動化、
もしくは、簡略化にあります。

例えば、以下の様な文字列の書かれた
テキストファイルがあるとします。

あああああああああああ。
ああああ、ああああああ、ああああああああああ。
あああああ、ああああああ。
あああああああああああ。

これをこのまま読み込むと、
一行目：Ａ１
二行目：Ａ２
という感じで読み込まれます。

これ自体は、全然問題ないのですが、
その後に、セル内改行（Alt+Enter）を手作業で入れ、
文章を整えているのですが、非常に時間が掛かります。

これをマクロなどで簡略化できるか
調べているのですが、良い方法が見つかりません。

そこで、テキストエディターで、
セル内改行と解釈してくれる記号を埋め込み、
エクセル側で、セル内改行に変換できないだろうかと、
思いつきました。

次のようなイメージです。
("\n"を、セル内改行文字と仮定します。)

あああああああああああ。
ああああ、\nああああああ、\nああああああああああ。
あああああ、\nああああああ。
あああああああああああ。

これを読み込んだら、"\n"の位置で
セル内改行が入ったら便利かと・・・。

このやり方以外でも構いませんので、
何か良い方法は無いのでしょうか！？

ちなみに、作成したい数は、
大体50ファイル位です。

テキストファイルを
特定のルールに沿ったエクセルに変える作業です。

ＰＣ環境は、
OS:Windows XP Home Edition
ソフト:Excel 2000,WZ_EDITOR
です。

よろしくお願いします。

回答No.1

pbforce · ベストアンサー

参考URLにはセル内改行を置換する方法が載っていますので、逆にすればご希望の処置が可能では？

参考URL：

http://www.relief.jp/itnote/archives/000248.php

お礼

早速、教えて頂いたとおりに
試してみました。

思い通りの結果になりました。
ありがとうございます。

セル内改行を
どうやって指定すれば良いか
わからなかったので、たすかりました。

回答No.4

imogasi

#1です。
書き忘れたが、置換で
http://www.relief.jp/itnote/archives/000248.php
にある
検索　１スペース
置換後　ＣＴＲＬ＋Ｊ（何も表示で無いがＯＫ）
全て置換
でできるかも。

回答No.3

imogasi

質問が長い割りに判りにくい。
＞作業の自動化
ＶＢＡを使うしかない。
ーー
エクセルにおいて、またはＣＳＶファイルなどエクセルに取り（読み）込んで、セル内改行コード（ｃｈｒ（１０））を、ＶＢＡで埋め込むのは簡単。
＞その後に、セル内改行（Alt+Enter）を手作業で入れ、
文章を整えているのですが
人間は教えてもらえば、聞けば判るルールはある。しかし
コンピュタはプログラム向けの、明快な（改行を入れる位置の）ルールが無いとできない。
ーー
要は、それだけを、回答者に判るように書けばよい。
それが文章化して、質問に載ってますか。
良くわからんのだけど。
ーー
推測すると、スペースのところで改行したいということかな。
ＩＮＳＴＲ関数で簡単にできるよ。
ーー
１つなら
=LEFT(A1,FIND(" ",A1)-1)&CHAR(10)&RIGHT(A1,LEN(A1)-FIND(" ",A1))
で関数でもできる。
書式ー配置ー全体を折り返して表示する、に設定する。

お礼

質問の要点がまとまっておらず、
ご迷惑をお掛けしました。

ご回答いただきありがとうございます。
今後の参考にさせて頂きます。

回答No.2

akamanbo

何かの事情で、セル内の自動折り返しは使えないという前提ですよね？