エクセルの行列方向での並び替え

エクセルのデータを下記のように並べ替えるのにはどうしたら宜しいのでしょうか？
　　１　 ２　 ３　 　　　　　　　　1　　2　　3
A 1.23 2.85 1.11　　　　A 2.85 1.23 1.11
B 12.34 15.72 15.57 　 B 15.72 15.57 12.34
C 16.07 16.99 15.93 　 C 16.99 16.07 15.93
・ 　 ・
・ 　　　　　 並び替え→　　　　　 ・
・ 　 ・
E 16.94 14.87 13.87　　　　　　　　　　　E 16.94 14.87 13.87

上記のように行単位降順の並び替え方法を教えて下さい。
並び替えオプションで列単位として優先されるキー３行については並び替えができますが、データを一括に並び替えしたいのです。　　

No.6 ベストアンサー 回答者： zap35 回答日時： 2006/09/16 14:52

＃０３です。

ワークシートの選択した範囲を１行単位で「（左）大←→小（右）」にソートするマクロを作ってみました。

Sub Macro1()
Dim idxR, cntCol As Integer
　cntCol = Selection.Columns.Count
　For idxR = 0 To Selection.Rows.Count - 1
　　With Selection.Cells(1, 1)
　　　Range(.Offset(idxR, 0), .Offset(idxR, cntCol)).Sort _
　　　　key1:=.Offset(idxR, 0), Order1:=xlDescending, _
　　　　Orientation:=xlLeftToRight
　　End With
　Next idxR
End Sub

マクロはALT＋F11でVBE画面を開き、左上のVBA Projectでシート名を右クリックし「挿入」→「標準モジュール」で表示される画面に貼り付けて下さい。マクロの実行はALT＋F8でマクロ一覧を開き、マクロ名を選択して「実行」ボタンです。

この回答への補足

今回はプログラムまで書いて頂いて本当に有難うございました。
仕事の納期に迫っており本当に助かりました。
　これから少しづつVBAを覚えたいとおもいますがどの様に学習したらよいかアドバイスを頂けないでしょうか？
宜しくお願いします。

補足日時：2006/09/19 20:12

No.8 回答者： 134 回答日時： 2006/09/16 15:00

訂正

１列目
=large($a1:$c1,1)
２列目
=large($a1:$c1,2)
３列目
=large($a1:$c1,3)

No.7 回答者： 134 回答日時： 2006/09/16 14:58

どこか、使用していない範囲を利用して、

１列目
=large($a1:$b1,1)
２列目
=large($a1:$b1,2)
３列目
=large($a1:$b1,3)

と入力して、関数を下までコピー
ついで、表示された値の範囲をコピーして、
元の範囲に、「形式を選択して貼り付け」の「値」を貼り付けるという方法もあるかもしれません。

No.5 回答者： kamejiro 回答日時： 2006/09/16 11:27

ソフトの購入が必要ですが三四郎なら、列方向の並べ替えが出来ます。

（エクセルのファイルは読めます）

No.4 回答者： Cupper 回答日時： 2006/09/16 11:12

行列の並べ替えは無かったと記憶します。

代替の方法ですが、他の方も回答しているように行列を入れ替えることで並べ替えを行なってはいかがでしょう。

並べ替えたいセルを一括選択してコピー
別のシートか開いているセルを指定して、編集→形式を選択して貼り付け→「行列を入れ替える」にチェックマークを付ける→OK
これで行列を入れ替えた状態にできます。

あとは普通に並べ替えを行なってから、並べ替えた結果を同様に「行列を入れ替える」をしてください。

No.3 回答者： zap35 回答日時： 2006/09/16 11:10

「データ」→「並べ替え」→「オプション」→「方向を列単位」にして、データ範囲だけを選択して降順で並べ替えすれば、一括で希望のようになります。

なお、「１　２　３」「Ａ　Ｂ　Ｃ」は実際のエクセルの表と同じように書かれるほうが良いですよ。混乱します。

No.2 回答者： okwv-first 回答日時： 2006/09/16 11:09

こんにちは。

並べ替えを３つ以上にする場合は、マクロかVBAを利用するしかないと思います。
いつも同じ行数、列数内で行うのであればマクロをオススメします。

No.1 回答者： lalpuru 回答日時： 2006/09/16 11:05

　

ABCがなぜ縦に並んでるのか不思議ですが.....

提示された例から見ると1列を2列と3列の間に入れたいのですか?

列番号の「1」をクリックし切り取り
列番号の3を「右クリック」して「切り取った列の挿入」を選ぶ