エクセルでの行のまとめ方
エクセルで、データの塊を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
お礼
ご指摘の通りデーター溢れしており データー使い物になりませんでした。 つまり他のソフトからの移行がうまく いってなかったようです。 アドバイスありがとうございました。