A列にあるデータを三つずつ移したい

初めて質問させて頂きます。エクセル2007を使っているます。

A列にA1,A2,A3A4,A5,A6…とデータがあります。最も下はA1896です。
これらはA1～A3でひとまとまり、A4～A6でひとまとまりになっています。
このひとまとまりを、以下のようにABCDの四列に振り分けていきたいのですが、
手作業では大変すぎてどうしたものかと途方に暮れています。

A 　 B　　C　　 D
A1　 A4 A7 A10
A2 　A5 A8 A11
A3 　 A6 A9 A12
A13 A16 A19 A22
A14 A17 A20 A23
A15 A18 A21 A24
　：　　：　　　：　　　：
　：　　：　　　：　　　：

A列にこだわりはないので、A列データが残ったままBCDE列に移動、とかでも
構いません。とにかく３つひとまとまりに、４列に配置したいのです。

何かよい方法やマクロの記述などございませんでしょうか？
宜しくお願いいたします。

No.1 ベストアンサー 回答者： CoalTar 回答日時： 2010/12/13 20:31

B1セルに

=INDEX($A$1:$A$1896,1+MOD(ROW(A1)-1,3)
+INT((ROW(A1)-1)/3)*12+(COLUMN(A1)-1)*3)
右へ下へオートフィル

この回答へのお礼

ありがとうございました！大感謝です！
解決しました！この文字列は家宝にします！

お礼日時：2010/12/13 20:49