セル内、スペース位置で改行

宜しくお願いします。

Ａ列に品名があり、途中に半角スペースが有るものと無いものが混在しています。スペースの場所は色々です。
スペースが有るものについて、セル内での改行をしています。（手動）
データ自体が他のシートからのコピー＆ペーストのため回数と量が多いのでＶＢＡでの処理をと思ったのですが、改行位置の指定をどうしたらいいのか分かりません。
申し訳ありません、ご教授下さい。

No.2 ベストアンサー 回答者： TTak 回答日時： 2005/03/31 14:59

次の記述でいかがでしょう？ A列の半角スペースのみ改行に差し替えます。

Sub SPACE_CHANGE()
ActiveSheet.Columns("A").Replace _
　What:=" ", Replacement:=vbLf, _
　　SearchOrder:=xlByColumns, MatchCase:=True
End Sub


Win2000+Excel2000で動作確認

この回答へのお礼

ありがとうございます。
超初心者で、やりたい事はあるのに知識が伴いません。もっと勉強します。
Win xp、Excel2003 で正常動作です。

お礼日時：2005/03/31 15:16

No.1 回答者： neKo_deux 回答日時： 2005/03/31 14:56

例えば、

abc de fg
hijk lm
↓
abc
de
fg
hijk
lm

としたい。
って事でしょうか？

A1に前者の内容が入っているとして、他のセルで、

=SUBSTITUTE(A1," ",CHAR(10))

とするとスペース→改行に置換した文字列が取得できます。

この回答へのお礼

ありがとうございます。
他のセルだとＶＢＡじゃなくても良かったんですね。
考えが偏ってました。

お礼日時：2005/03/31 15:07