Excelを使って行列変換をしたい（大量件数）

先日質問させていただいたものです。
さらなる加工が必要になりました。

例えば、
◆test
aaaaaa
iiiiiiiiiiiii
uuuuu
eeeee
ooooo
◆test2
kaaaaa
kiiiiiiiiiii
kuuuuu
keeeee
kooooo
...

これらのデータを
◆test　aaaaaa
　　　　iiiiiiiiiiiiii
　　　　uuuuuu
eeeeee
oooooo
◆test2　kaaaaa
　　　　　kiiiiiiiiiii
　　　　　kuuuu
　　　　　keeeee
　　　　　koooooo

に変換はできたのですが、今度は
◆test aaaaaaaa iiiiiiiiiii uuuuuuuuuuu eeeeeee oooooo
◆test2 kaaaaaa kiiiiiiiii kuuuuuuuuu keeeeee koooooooo

のように変換する必要がでてしまいました。

マクロなどで一括で変換できないでしょうか。
当方知識が乏しいため困っております。

No.2 ベストアンサー 回答者： tom04 回答日時： 2017/05/16 16:48

こんにちは！

別シートに表示しても良いですか？
元データはSheet1のA列にあり、Sheet2に表示するとします。
標準モジュールにしてください。

Sub Sample1()
Dim i As Long, cnt As Long, wS As Worksheet
Set wS = Worksheets("Sheet2")
wS.Cells.ClearContents
With Worksheets("Sheet1")
For i = 1 To .Cells(Rows.Count, "A").End(xlUp).Row
If InStr(.Cells(i, "A"), "◆") > 0 Then
cnt = cnt + 1
wS.Cells(cnt, "A") = .Cells(i, "A")
Else
wS.Cells(cnt, Columns.Count).End(xlToLeft).Offset(, 1) = .Cells(i, "A")
End If
Next i
End With
End Sub

こんな感じではどうでしょうか？m(_ _)m

No.4 回答者： mike_g 回答日時： 2017/05/16 17:28

B1: =OFFSET($A$1,(ROW(A1)-1)*6+MOD(COLUMN(A1)-1,6),)&""

No.3 回答者： neKo_deux 回答日時： 2017/05/16 16:50

１回きりの処理なら、

例えば、
◆test
aaaaaa
iiiiiiiiiiiii
uuuuu
eeeee
ooooo
◆test2
kaaaaa
kiiiiiiiiiii
kuuuuu
keeeee
kooooo
...

行列入れ替えて貼り付け。
csvで保存。
◆test, aaaaaa, iiiiiiiiiiiii, uuuuu, eeeee, ooooo, ◆test2, kaaaaa, kiiiiiiiiiii, kuuuuu, keeeee, kooooo, ...

「◆」を「改行＋◆」に置換。
上書き保存。
◆test, aaaaaa, iiiiiiiiiiiii, uuuuu, eeeee, ooooo
◆test2, kaaaaa, kiiiiiiiiiii, kuuuuu, keeeee, kooooo, ...

csvを読み込み。
とか。

No.1 回答者： 銀鱗 回答日時： 2017/05/16 16:08

コピーして

　「行列を入れ替えて貼り付け」
で対処しましょう。

数が多い？
(´・ω・`)
知らんがな

知識が乏しいのであれば、その知識の中でできる対処方法を考えましょう。
（繰り返し処理を行わないのにマクロでどうにかしたいとか…どう考えても他の人に手間のかかる作業をお願いしているようにしか見えないんです）