Excel マクロ VBA セル内で改行された文字列の分割 - OKWAVE

はじめまして。 ＥｘｃｅｌのＶＢＡ初心者で、ちょっと困っています。 （例） （１） セルＡ１に以下のような改行された文字列が入力されています。 【セルＡ１】 a aa aaa b bb bbb （２） セルＡ１内の文字列を３行毎に分割し、セルＡ２以降に表示させたい。 【セルＡ２】 a aa aaa 【セルＡ３】 b bb bbb ※ 今回の例ではセルＡ１に６行しかありませんが、実際に行数は決まっていません。 そこで以下のようなＶＢＡを見よう見まねで作り、１行毎の分割はうまくいったのですが、『３行毎に分割』ができません。 Sub 分割() Dim A, B, C A = Split(Range("A1"), Chr(10)) B = 0 For Each C In A B = B + 1 Range("A2").Offset(B - 1, 0).Value = C Next End Sub