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

質問

宜しくお願いします。

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

回答No.2

TTak · ベストアンサー

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

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

Win2000+Excel2000で動作確認

お礼

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

回答No.1

neKo_deux

例えば、

abc de fg
hijk lm
↓
abc
de
fg
hijk
lm

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

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

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

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

お礼

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