エクセルでの行のまとめ方

質問

エクセルで、データの塊を1行にまとめたいと思っています。

例）
┌─┬─┬─┐
│A │B │C │
├─┼─┼─┤
│D │E │F │
├─┼─┼─┤
│　 │ 　│ 　│
├─┼─┼─┤
│G │H │I │
├─┼─┼─┤
│J │K │L │
├─┼─┼─┤
│ 　│ 　│ 　│
├─┼─┼─┤
│M │N │O │
├─┼─┼─┤
│　 │　 │ 　│
├─┼─┼─┤
│ 　│ 　│　 │
├─┼─┼─┤
│P │Q │R │
├─┼─┼─┤
│S │T │ 　│
├─┼─┼─┤

この様に並び替えたいのです。

┌─┬─┬─┬─┬─┬─┐
│A │B │C │D │E │F │
├─┼─┼─┼─┼─┼─┤
│G │H │I 　│J │K │L │
├─┼─┼─┼─┼─┼─┤
│M │N │O │　 │　 │　 │
├─┼─┼─┼─┼─┼─┤
│P │Q │R │S │T │　 │
├─┼─┼─┼─┼─┼─┤

つまり、データの1行目の後に2行目を貼り付ける。これをデータの塊分で処理を行いたいです。
データが3行あれば、データの1行目の後に2行目、2行目の後に3行目を貼り付けるみたいなイメージです。

※1:データの塊と言うのは、上記で言うと、[A～F]、[G～L]、[M～O]、[P～T]になります。
※2:列の数は上記では3列ですが、3列以上存在しています。
※3：データの塊は例では2行になっていますが、データによっては2行以上存在する事があります。
※4：但し、例えばデータの塊が2行であれば、その他のデータの固まりも2行ごとになります。
※5：データが空白になっている場合があります。
※6：データの塊と塊の行の間には、必ず空白行が存在しています。

下記のようにマクロ作って見ましたがうまく動きません。
解決策や、他にこのようにした方が良いよと言うのがあれば教えて下さい。

Sub TEST()

'--------
x = 5
'--------
'--------
i1 = 26
'--------

o = 1 '行数チェック
Do Until Cells(o, 1).Value = ""

t = 1 '列数
s = i1 + 1
Do Until t = i1 + 1
Cells(o, s).Value = Cells(o + 1, t).Value
Cells(o, s + i1).Value = Cells(o + 2, t).Value
Cells(o + 1, t).Value = ""
Cells(o + 2, t).Value = ""
s = s + 1
t = t + 1
Loop

o = o + x + 1
Loop

回答No.1

keithin · ベストアンサー

（数式ではなく）生データが記入されているとします
それぞれのカタマリは，確実に「空っぽの行」で区切られているとします。

sub macro1()
　dim w0 as worksheet, w as worksheet
　dim ha as range, h as range
　dim r as long, c as long

　set w0 = activesheet
　set w = worksheets.add(before:=activesheet)

　for each ha in w0.range("A:A").specialcells(xlcelltypeconstants).areas
　　r = r + 1
　　c = 0
　　for each h in ha.currentregion
　　　if h <> "" then
　　　　c = c + 1
　　　　w.cells(r, c).value = h.value
　　　end if
　　next
　next
end sub

お礼

ありがとうございます。
期待通りの動きになっています。

ご回答頂いたマクロを基に勉強も行います。

回答No.2

KURUMITO

マクロを組まれるほどのこともないでしょう。下記のように関数で対応することができます。
例えばお示しの最初の表がA列からC列の間に1行目から下方に入力されているとします。
お求めの表をE列からJ列に表示させるとしたらE1セルに次の式を入力して右横方向にJ1セルまでオートフィルドラッグコピーしたのちに下方にもオートフィルドラッグコピーします。

=IF(OR(COLUMN(A1)>6,INDEX($A:$C,(ROW(A1)-1)*3+ROUNDUP(COLUMN(A1)/3,0),MOD(COLUMN(A1)-1,3)+1)=0),"",INDEX($A:$C,(ROW(A1)-1)*3+ROUNDUP(COLUMN(A1)/3,0),MOD(COLUMN(A1)-1,3)+1))

お礼

ありがとうございます。

うまく関数が動かなかったのですが、マクロで処理したかった理由は下記があります。
１．データの塊が数100以上ある。
２．行をまとめたいのであって、一つのセルにはまとめたくない。