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

質問

はじめまして。
ＥｘｃｅｌのＶＢＡ初心者で、ちょっと困っています。

（例）
（１）　セルＡ１に以下のような改行された文字列が入力されています。
【セルＡ１】
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

ご教授いただけると助かります。
よろしくお願い致します。

回答No.1

keirika · ベストアンサー

Sub 分割()
Dim A, B, C, E
A = Split(Range("A1"), Chr(10))
B = 1
E = 1
For Each C In A
If E = 1 Then
Range("A2").Offset(B - 1, 0).Value = C
Else
Range("A2").Offset(B - 1, 0).Value = _
Range("A2").Offset(B - 1, 0).Value & Chr(10) & C
End If
If E = 3 Then
B = B + 1
E = 0
End If
E = E + 1
Next
End Sub

でどうでしょう。

お礼

はじめまして。
希望していた通りの結果が得られました。
大変勉強になりました。ありがとうございました。

回答No.3

fujillin

＃2です。ごめんなさい、この方が、良いかも。

Sub divide()
Dim A, B, C, D
A = Split(Range("A1"), Chr(10))
B = -1
For Each C In A
B = B + 1
Set D = Cells(1, Int(B / 3) + 2)
If ((B Mod 3) = 0) Then D.Value = ""
D.Value = D.Value & Chr(10) & C
Next
End Sub

お礼

はじめまして。
得られる結果は同じでも、色々な書き方があるのだと改めて感じました。
大変勉強になりました。ありがとうございました。

回答No.2

fujillin

同じですが・・・
Sub divide()
Dim A, B, C
A = Split(Range("A1"), Chr(10))
B = -1
For Each C In A
B = B + 1
If ((B Mod 3) = 0) Then Cells(1, Int(B / 3) + 2).Value = ""
Cells(1, Int(B / 3) + 2).Value = Cells(1, Int(B / 3) + 2).Value & Chr(10) & C
Next
End Sub