VBAを使って一つのセル内で文書を改行

質問

現在ＶＢＡを使ってシート１の内容をシート２にコピーさせるもの作りました。↓
s.Cells(r, 1).Copy Sheets("Sheet2").Range("A1")

これでさらにシート２にコピーしたないようは
同じセル内で改行したいのです。
いわばＡｌｔ＋Ｅｎｔｅｒキーみたいな機能なのですが・・・
つまり出力がシート１の指定セルの内容が
『新年あけましておめでとう』なのですが、シート２は
『新年あけまして
　おめでとう』という内容を出力したいのですが、
改行のプログラムはわかりますでしょうか？？m(_ _)m

簡単なプログラムでもいいのです。
もしわかれば他にも応用したいので、この例で行くと『て』という文字を判別して『て』という文字があったらその文字のあとを改行させたいのですができますでしょうか？

回答No.1

e10go · ベストアンサー

こんばんわ。

改行は、「vbCrLf」を使えばできますね。
サンプルコードを下に載せて置きますので、asdasddさんの環境に合わせて改変してください。
注意事項として、セルの幅が狭いと、表示がうまくいかない事があります。

Sub test()
　　Dim la As Long, lb As Long
　　la = InStr(Sheets("Sheet1").Cells(1, 1), "て") '"て"の文字位置を調べる
　　lb = Len(Sheets("Sheet1").Cells(1, 1)) '文字数を調べる
　　If la > 0 And lb > la Then
　　　　Selection.Cells = Left(Sheets("Sheet1").Cells(1, 1), la) _
　　　　　　& vbCrLf & Right(Sheets("Sheet1").Cells(1, 1), lb - la)
　　Else
　　　　 Selection.Cells = Sheets("Sheet1").Cells(1, 1)
　　End If
End Sub

お礼

ありがとうございました
助かりました。