エクセルのデータ並び替え

質問

列（A）に1000個あるデータを、4列X250行に自動的に並び替える方法はありますか？
つまり
Ａ　　　Ａ　Ｂ　Ｃ　Ｄ
Ｂ　　　Ｅ　Ｆ　Ｇ　Ｈ
Ｃ　⇒　Ｉ　Ｊ　Ｋ　Ｌ
Ｄ　　　Ｍ　Ｎ　Ｏ　Ｐ
Ｅ　　　・　・　・　・
・
・
・

と、並べかえたいのですが、いい方法はありませんでしょうか？

回答No.1

zap35 · ベストアンサー

本当に並べ替えるならＶＢＡが必要ですが、表示だけでよければ関数で可能です。

元のデータがＡ１セルから始まっているとして、以下の式を適当なセルに貼り付けて、右方向に３つコピーします。後は下方向にもコピーしてください。なおデータの開始セルがＡ１ではないときには「$A$1」の１箇所だけを変更してください。

=OFFSET($A$1,INT((ROW(A1)-1)*4)+COLUMN(A1)-1,0)

表示した結果をコピーし「編集」→「形式を選択して貼り付け」→「値」で貼り付ければ、値に変換できます。

お礼

簡単にできました。
これまで時間を掛けてコピペしてたのがなんだったのか・・
ありがとうございました。

回答No.3

imogasi

関数ではすぐ回答が出るでしょう。
VBAでやってみます。
Sub test01()
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Set sh1 = Worksheets("Sheet2")
Set sh2 = Worksheets("Sheet3")
'----
For i = 1 To 1000
For j = 1 To 4
x = (i - 1) * 4 + j
If x > 1000 Then End
sh2.Cells(i, j) = sh1.Cells(x, "A")
Next j
Next i
End Sub
Sheet2のでーたをSheet3へ再編成する場合の例。
標準モジュールに貼り付けて実行。

お礼

ありがとうございます。早速使ってみます！！！

回答No.2

kigoshi

Sheet1に元データがあり、Sheet2に4列X250行を作るとします。
１）Sheet2のA1セルに
　=INDEX(Sheet1!$A:$A,(ROW()-1)*4+COLUMN(),1)
　をいれて、D1セルまでコピー。
２）A1:D1を選択し、A250:D250までコピー。
３）A:D列を選択し、［Ctrl］＋［Ｃ］。
４）[編集]→[形式を選択して貼り付け]→[値]にチェック、［ＯＫ］

で、いかがでしょうか。

お礼

ありがとうございました。
見事できました。
大変助かりました。