excelの操作でわからないことがあります・・・。

質問

ちょっとややこしい操作なので、うまく説明できるかわかりませんが、できるかぎりわかりやすく説明するつもりなので、よろしくお願いします。
まず、
51 42 35 41
36 50 41 32
・ ・ ・ ・
・ ・ ・ ・
・ ・ ・ ・
36 40 39 38
というサンプルデータがあって、ここから1列目の
51
36
・
・
・
36
を取り出し、
1 1
1 2
1 3
・・
・・
・・
1 400
というデータ、（2列目は1～400まで1づつ増加）とくっつけて
1 1 51
1 2 36
・・・
・・・
・・・
1 400 36
というデータにします。
次にサンプルデータの2列目の
42
50
・
・
・
40
を取り出し、
2 1
2 2
2 3
・・
・・
・・
2 400
というデータとくっつけて
2 1 42
2 2 50
・・・
・・・
・・・
2 400 40
という風にする、というのをサンプルの3列目、4列目・・・・とやっていきたいのです。
（わかりにくい説明ですいません）
どのような効率的な操作、あるいはマクロを作ればいいでしょうか？
単純に作業するには、サンプルデータの列数が多すぎて時間がかかり過ぎてしまうので、困っています。
ちなみに3列目は
3 1 35
3 2 41
・・・
・・・
・・・
3 400 39
になります。

回答No.3

imogasi · ベストアンサー

（例データ）本当は４００行あるらしいが、６行と仮定して簡単化します。４００や６は一定とします。A-D列まで
最終行は同じとします。
A1:D6
51 42 35 41
36 50 41 32
11 23 34 54
34 56 71 34
67 78 33 25
36 40 39 38
(関数式）
例えばG1に
=INT((ROW(A1)-1)/6)+1
と入れて下の方に６＊４行（G24)まで複写します。
H1に
=MOD(ROW()-1,6)+1
と入れて下の方に６＊４行（H24)まで複写します。
I1に
=INDEX($A$1:$D$6,MOD(ROW()-1,6)+1,INT(ROW()-1)/6+1)
といれて下の方に６＊４行（I24)まで複写します。
（注）G列、H列がある、本質問の場合は　=INDEX($A$1:$D$6,H1,G1)の方が簡単ですね。
G列、H列が無いケースも考えて上記とした。
（結果）G,H,I列は
1 1 51
1 2 36
1 3 11
1 4 34
1 5 67
1 6 36
2 1 42
2 2 50
2 3 23
2 4 56
2 5 78
2 6 40
3 1 35
3 2 41
3 3 34（以下略）
のようになります。
他シートに作るのがいいですが、Sheet1!を前につけれは
修正はやさしい。ROW()にはSheet1!を付けないで下さい。
＄６は最終行ですから本当の最終行数に変えること。
●VBAでも１０数行で書けますがお望みならば載せますが。