エクセルで複数列、複数行の数字を１列に整列したい

エクセルで複数列の数字を１行に整列したい

100列、150行の数値が並んでいます。
これを１列に並べ替えたいと思っています。
具体的には下記の通りです。

例：
１．○○　●●　・・・・・・・（100列）
２．□□　■■　・・・・・・・（100列）
３．▽▽　◎◎　・・・・・・・（100列）
　　　　　・
　　　　　・
　　　　　・
　　　　
下記のように変換したいのです。
１．
○○
●●
・
・
・
・
・
□□
■■
・
・
・
・
・
▽▽
◎◎

過去ログも参照したのですが過去の応用が効かずなかなか上手く
いきません。　
よろしくお願い致します

No.2 回答者： jo-zen 回答日時： 2008/05/30 21:23

Sheet1にあるデータ(A列～CV列の100列）をSheet2に並び替えて貼り付けるとして、100列、150行が固定であるなら次のようなマクロでうまくいくと思います。

Sub Macro1()
'
For i = 0 To 149
Sheets("Sheet1").Select
Range("A1:CV1").Offset(i, 0).Select
Selection.Copy
Sheets("Sheet3").Select
Range("A1").Offset(100 * i, 0).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True

Next i

End Sub

No.1 回答者： Kid_3 回答日時： 2008/05/30 21:18

TRANSPOSE(範囲指定）でできませんか？