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

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

２４列、３６５行の数値が並んでいます。
これを１行８７６０列に並べ替えたいと思っています。

２５列目から２行目の２４列分を移動。４９列目からに３行目の２４列分・・・
といった具合で、具体的には下記の通りです。

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

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

No.4 ベストアンサー 回答者： maron--5 回答日時： 2008/01/04 20:05

Y1=OFFSET($A$1,INT((COLUMN()-1)/24),MOD(COLUMN()-1,24))

★LXX列まで右にコピー

この回答へのお礼

有難うございました。年始の悩みが解決し、良い仕事始めとなりました。

お礼日時：2008/01/04 20:37

No.3 回答者： imogasi 回答日時： 2008/01/04 13:58

３６５行（回）の下記繰りかえしを行う。

　第１列から第２４行までを張り付け
　張り付けスタート列を２４づつ増やす
繰り返し
Shee1のiを行番号、ｊを列番号
Sheet２の第１行目での、各回の張り付け列をｋとする。
Sub test01()
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Set sh1 = Worksheets("Sheet1")
Set sh2 = Worksheets("Sheet2")
k = 1
For i = 1 To 365
For j = 1 To 24
sh2.Cells(1, k) = sh1.Cells(i, j)
k = k + 1
Next j
Next i
End Sub
ーー
関数でもできますが。

この回答への補足

申し訳ありません。慣れている関数式での変換のご教示をお願いします。

補足日時：2008/01/04 18:18

No.2 回答者： shintaro-2 回答日時： 2008/01/04 11:45

私ならテキストに吐き出して、ワードパッドかワードで改行コードを他のコードに変換した後、再度エクセルに読み込みます。

この回答への補足

ありがとうございます。ただし、今後のことも考え、関数での変換を希望しております。

補足日時：2008/01/04 18:12

No.1 回答者： edomin2004 回答日時： 2008/01/04 11:22

EXCELのバージョンはいくつですか？

２００３までだと、１行は２５６セルしか無いんですが…。
２００７だと、１６３８４セル有ります。

この回答への補足

申し訳ありません。
バージョンは2007になります。

補足日時：2008/01/04 11:35