Excelで複数列かつ複数行分の一括並べ替えについて教えてください

質問

Excel2003を使っています。
【例】
A1:N530の表の中の一部分D1:I530範囲（6列で530行）部分のみを
列単位で一括で並べ替えしたいと思っております。
D1:I530範囲には6列に23、96、11、106、72、49といったように530行全てランダムに数値が入っております。これを各行毎に全て左から昇順に530行分一括並べ替えしたいということでございます。
エクセル機能の「データ」→「並べ替え」→「現在選択する範囲を並べ替える」→「オプション」→「列単位」を指定して列単位に並べ替えは出来たのですが１行ずつしかソート出来ません。
このやり方では530回並べ替え作業をすることになり、時間的に余裕がないのでこの場合にExcel2003の機能で一括で530行分を列単位でもって左から並べ替えをする方法があるでしょうか？
ちなみにExcel2007もまだ使ったことないですが所持しています。
仕事上緊急でご質問させていただいております。是非助けてください。

回答No.4

xls88 · ベストアンサー

＞セル背景色も一緒にソート移動されているかなと思った・・・・・
下記マクロを試してください。

Sub test1()
Dim r As Range
Dim srng As Range

Set srng = Range("D1:D530")
For Each r In srng
'列単位昇順並べ替え
r.Resize(, 6).Sort Key1:=r, _
Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlLeftToRight, _
SortMethod:=xlPinYin, DataOption1:=xlSortNormal
Next
End Sub

お礼

一瞬で解決いたしました。
本当にありがとうございました。
まさかマクロでの御指導が来るとは想像もしていなかったですが、これを機会に自身もマクロの勉強努力いたします。

回答No.3

noname#204879

D　　E　　F　　G　　H　　I　 …　 O　　P　　Q　　R　　S　　T
1　　 23　 96　 11　106　 72　 49　…　 11　 23　 49　 72　 96　106
2　　340　490　351　216　423　477　…　216　340　351　423　477　490
3　　239　211　224　448　155　432　…　155　211　224　239　432　448
　　　…　 …　 …　 …　 …　 …　…　 …　 …　 …　 …　 …　 …
528　423　482　221　491　 21　239　…　 21　221　239　423　482　491
529　125　334　159　436　185　 73　…　 73　125　159　185　334　436
530　330　 62　438　132　291　448　…　 62　132　291　330　438　448

１．セル O1 に次式を入力して、これを右方に５列ドラッグ＆ペースト
２．範囲 O1:T1 を下方にズズーッとドラッグ＆ペースト
　　（上表はその結果を示している）
３．そのままの状態で、[コピー]した後で、そのまンま[値の貼り付け]
４．そのままの状態で、Ctrl+Xキーを「エイヤッ！」と叩き付け
５．セル D1 を選択して、Ctrl+Vキーを「エイヤッ！」と叩き付け

回答No.2

mu2011

一例です。
（１）データシートをsheet1、抽出シートをsheet2として、sheet2のA1に
=SMALL(Sheet1!$D1:$I1,COLUMN(A1))として右方向に６列分コピー
（２）sheet2のA1:F1を選択→下方向に５３０行分コピー
（３）sheet2の並び替え範囲を選択、コピー→データシートのD1を選択→形式を選択して貼り付け→値を選択→ＯＫ

補足

大変ありがとうございました。
ものすごく参考になり実践してみました。
こちらの関数で並べ替えが出来ました！
一転、補足し漏れておりました問題もございました。
数値データは=SMALL(Sheet1!$D1:$I1,COLUMN(A1))関数で並べ替えられましたが、実はこのデータ類には決められた数字に対して決められたセル色が複数色に渡り全ての数字に塗られております。セル背景色も一緒にソート移動されているかなと思ったのですがソートした時点でセル色だけ各セルバラバラになってしまいました。
解決出来るでしょうか？
助けてください。よろしくお願い申し上げます。

回答No.1

KURUMITO

エクセル2003ですがＤ列からＩ列を選択して「データ」から「並べ替え」で最優先されるキーに「列Ｄ」を選び「昇順」でＤからＩ列のデータは昇順に並びますね。