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

質問

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

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

例：
１．○○　●●　・・・・・・・（100列）
２．□□　■■　・・・・・・・（100列）
３．▽▽　◎◎　・・・・・・・（100列）
　　　　　・
　　　　　・
　　　　　・

下記のように変換したいのです。
１．
○○
●●
・
・
・
・
・
□□
■■
・
・
・
・
・
▽▽
◎◎

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

回答No.2

jo-zen

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

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