エクセルのソートについて

　　　　　Ａ　Ｂ　Ｃ
　　男　１　２　２
Ｅ　女　２　１　３
　　計　３　３　５
　　男　２　１　２
Ｆ　女　３　２　２
　　計　５　３　４
　　男　１　１　２
Ｇ　女　２　３　２
　　計　３　４　４

このようなエクセルの表で計をキーにソートしたいのですができますか？
それとも配列自体を変えるべきでしょうか？

No.5 ベストアンサー 回答者： tom04 回答日時： 2013/05/02 21:17

こんばんは！

No.1さんの補足の内容を拝見すると
もしかして↓の画像のようにA列が結合されているのでしょうか？
もしそうであれば同じ行で結合セルがあったり、なかったりでは並び替えができませんので
結合を解除させてやる必要があると思います。

そこでVBAになってしまいますが、一例です。
画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面に
↓のコードをコピー＆ペーストしてマクロを実行してみてください。
（Alt+F8キー　→　マクロ　→　マクロ実行です）
尚、元データはアップした画像のように1行目に項目があり2行目から規則的にデータがあるとします。

Sub 並び替え() 'この行から
Dim i As Long, Kei As Variant
Application.ScreenUpdating = False
Range("A:A").Insert
For i = 2 To Cells(Rows.Count, "C").End(xlUp).Row Step 3
Cells(i, "B").UnMerge
Cells(i, "A").Resize(3, 1) = Cells(i + 2, "D")
Next i
Range("A1").CurrentRegion.Sort key1:=Range("A1"), order1:=xlAscending, Header:=xlYes
Range("A:A").Delete
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row Step 3
Cells(i, "A").Resize(3, 1).Merge
Next i
Application.ScreenUpdating = True
End Sub 'この行まで

※　一旦マクロを実行すると元に戻せませんので、
別Sheetでマクロをためしてみてください。m(_ _)m

この回答へのお礼

ありがとうございます。
結局ソート用の別シートで対応しました。

お礼日時：2013/05/09 20:30

No.4 回答者： keithin 回答日時： 2013/05/02 21:13

＞計をキーにソートしたい

あなたが元のご相談に書いた表では、ＡＢＣの一体どれを元にどう並べ替えたいのか全く説明が無いので、とりあえずＡだけにします。他の事（たとえばＡＢＣ３つの全合計の昇順とか）をしたいときは、適切に応用してください。

手順：添付図
Ｄ２に
=C4
Ｄ３に
=C4
Ｄ４に
=C4
を記入
Ｄ２：Ｄ４をまとめて表の下端までコピー

表全体をＤ列の昇順で並べ替えれば出来上がり。


＃補足
いわずもがなですが、Ａ列のまんなかにＥとかＦとか書くのは一向かまいませんが、セル結合してはいけません。

No.3 回答者： Nouble 回答日時： 2013/05/02 20:22

表構成を変える方が良いと思いますよ？

ExcelはVBAでも使わない限り、
ブロック単位で自動で動かすのは至難の技ですから。

ソートは行単位でも列単位でも行えますが、
ソート対象に他の物が混ざっていない事が前提ですからね。
混ざってても問答無用でぐちゃぐちゃにしちゃいますよ？


如何でしょうか？
お役に立てていたならば幸いです。

No.2 回答者： mpascal 回答日時： 2013/05/02 20:19

組の合計でソートしたいなら

組　　男　　女　　計
Ａ　　　１　　２　　３
Ｂ　　　２　　３　　５
Ｃ　　　１　　２　　３

このような表にして、計の列でソートですね。

No.1 回答者： mpascal 回答日時： 2013/05/02 19:32

よく意味がわかりません。

表として、入力情報は判るけど、どういう結果欲しいのかが判らない。

あと、左の列の、Ｅ、Ｆ、Ｇ の意味も不明。

この回答への補足

ローマ字にしたのが分かりにくくしてしました。
すいません。

　　　男　１
Ａ組女　２
　　　計　３
　　　男　２
Ｂ組女　３
　　　計　５
　　　男　１
Ｃ組女　１
　　　計　２
これを下になるように

　　　男　１
Ｃ組女　１
　　　計　２
　　　男　１
Ａ組女　２
　　　計　３
　　　男　２
Ｂ組女　３
　　　計　５
このようになるようにしたいのです。

補足日時：2013/05/02 19:59