エクセルのセル内の文字数によって改行する

エクセルのセル内の文字数によって改行する
ことはできますか？

A列にずらっと会社名が入力されています。
その会社名の文字数が10文字以上なら、「株式会社」の後ろで改行させたいのですが、方法はありますか？

株式会社 ABCDEF（スペースも含めて11文字）
　　↓
株式会社
ABCDEF

というような感じです。

9文字以下の時は、そのまま横並びの状態にしておきたいです。

No.1 ベストアンサー 回答者： tom04 回答日時： 2010/06/23 16:56

こんにちは！

一例です。
A列の2行目から必要データが入っていて、B2セル以下に表示させるとします。

株式会社・有限会社　のどちらにも対応できるようにしてみました。

B2セルの書式設定の表示形式の「配置」タブで「折り返して全体を・・・」にチェックを入れておきます。

B2セルの数式を
=IF(LEN(A2)>9,LEFT(A2,FIND("社",A2))&CHAR(10)&MID(A2,FIND("社",A2)+1,10),A2)

としてオートフィルで下へコピーではどうでしょうか？

尚、次の行は「社」の後の空白から表示されてしまいますので
必ず「社」の後には空白がある！というのであれば
数式を
=IF(LEN(A2)>9,LEFT(A2,FIND("社",A2))&CHAR(10)&MID(A2,FIND("社",A2)+2,10),A2)
にしてみてください。
（エラー処理はしていません）

以上、参考になれば良いのですが
他に良い方法があれば読みまがしてくださいね。m(__)m

この回答へのお礼

早速の回答ありがとうございました！
正直関数の意味はよくわかっていませんが、そのままコピーさせていただき無事できました！！

感激です。
ありがとうございました。

お礼日時：2010/06/23 17:29

No.2 回答者： KURUMITO 回答日時： 2010/06/23 17:25

Ａ1セルから下行に会社名があるとしたらＢ1セルに次の式を入力して下方にオートフィルドラッグします。

=IF(A1="","",IF(LEN(A1)<10,A1,IF(LEFT(A1,4)="株式会社","株式会社"&CHAR(10)&TRIM(MID(A1,5,20)),A1)))

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

この回答へのお礼

早速の回答ありがとうございました！
こちらでもできました！

本当に素晴らしい。
ありがとうございました。

お礼日時：2010/06/23 17:32