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

質問

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

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

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

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

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

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

回答No.4

maron--5 · ベストアンサー

Y1=OFFSET($A$1,INT((COLUMN()-1)/24),MOD(COLUMN()-1,24))
★LXX列まで右にコピー

お礼

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

回答No.3

imogasi

３６５行（回）の下記繰りかえしを行う。
　第１列から第２４行までを張り付け
　張り付けスタート列を２４づつ増やす
繰り返し
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
ーー
関数でもできますが。

補足

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

回答No.2

shintaro-2

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

補足

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

回答No.1

noname#77845

EXCELのバージョンはいくつですか？
２００３までだと、１行は２５６セルしか無いんですが…。
２００７だと、１６３８４セル有ります。

補足

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