エクセルのデータ並び替え

質問

どなたかお知恵を拝借いただけないでしょうか。
エクセルでA1,B1,C1,D1と横に4つ並んだデータを2行(1行目にひとつ、2行目に３つ）に並びかえたいのですが良い方法はないでしょうか？

つまり
　 　　A　　　　B　　　　C　　　　D
1　　DATA1　DATA2　DATA3　DATA4
　　・・・・・

というのを
　 　　A　　　　B　　　　C　　　　D
1　　DATA1
2　　DATA2　DATA3　DATA4

というふうに2行にしたいのです。
全部で2000行位のデータがあってどうしようか困っています。
よろしくお願いいたします。

回答No.2

imogasi

例データ
Sheet1
a1 b1 c1 d1
a2 b2 c2 d2
a3 b3 c3 d3
a4 b4 c4 d4
a5 b5 c5 d5
a6 b6 c6 d6
a7 b7 c7 d7
・・・
Sheet2
A1に
=INDEX(Sheet1!$A$1:$D$100,INT((ROW()-1)/2)+1,1)
A2に=INDEX(Sheet1!$A$1:$D$100,INT((ROW()-1)/2)+1,2)
B2に=INDEX(Sheet1!$A$1:$D$100,INT((ROW()-1)/2)+1,3)
C2に=INDEX(Sheet1!$A$1:$D$100,INT((ROW()-1)/2)+1,4)
最後の引数はColumn()+1にして、横方向の式の複写でも良い。
A1:C2を範囲指定し、C２でフィルハンドルをだし、下方向に
元データ数（行）＊２行分引っ張る。
結果
a1
b1 c1 d1
a2
b2 c2 d2
a3
b3 c3 d3
a4
b4 c4 d4
a5
b5 c5 d5
a6
・・・・

回答No.1

mu2011

次の方法は如何でしょうか。
（１）E1に=OFFSET($A$1,INT((ROW()-1)/2),0)
（２）E2=OFFSET($A$1,INT((ROW()-1)/2),COLUMN(A1))を入力、G2までコピー
（３）E1:G2を範囲選択、範囲枠の右下の■を下方向にドラッグ（連続コピー）して下さい。

お礼

すばらしいです！！！　あっという間にできました。
本当に助かりました。ありがとうございました！！！