エクセルで2列以上のものを同時に並び替えするには

エクセルで下記のようなデーターがあるとします。

１　A　　G　　
　　B　　H
２　C　　I　　○
　　D　　J
３　E　　K
　　F　　L
このようにひとつの項目に2行づつあるものに対して、最後に○をつけたものを先頭に2行そのまま一気に並び替えるにはどのようにすればよろしいでしょうか？要するに

２　C　　I　　○
　　D　　J
１　A　　G　　
　　B　　H
３　E　　K
　　F　　L
このようにしたいです。
よろしくお願いいたします。

No.7 ベストアンサー 回答者： Wendy02 回答日時： 2006/02/18 00:24

こんばんは。

一応、現在は、2列ごとの並べ替えをするものですが、AA1から右をテンポリーセルとしていますから、もし、そこに何かあるようでしたら、どこか適当な場所にしてください。

'標準モジュール推奨
Sub DoubleRowsSort()
'二行を1行として並べ替えをするマクロ
　 Dim rng As Range
　 Dim mRow As Integer
　 Dim mCol As Integer
　 Dim Ar() As Variant
　 Dim Ar2() As Variant
　 Dim c As Variant
　 Dim r As Variant
　 Dim i As Integer
　 Dim k As Integer
　
　 Set rng = Range("A1").CurrentRegion
　 mRow = rng.Rows.Count
　 mCol = rng.Columns.Count
　 ReDim Ar(1 To mRow / 2, 1 To mCol * 2)
　 For Each c In Range("A1").CurrentRegion
　　　i = i + 1
　　　Ar(Int((i - 1) / (mCol * 2)) + 1, (i - 1) Mod mCol * 2 + 1) = c.Value
　 Next c
　 Application.ScreenUpdating = False
　'テンポラリセル領域
　 With Range("AA1").Resize(mRow / 2, mCol * 2)
　　　.Value = Ar()
　　　
　　　'並べ替え 4列目(D)
　　　.Sort Key1:=.Range("D1"), Order1:=xlAscending, Header:=xlNo, _
　　　OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
　　　ReDim Ar2(1 To mRow, 1 To mCol)
　　　For Each r In .Cells
　　　　 k = k + 1
　　　　 Ar2(Int((k - 1) / mCol) + 1, (k - 1) Mod mCol + 1) = r.Value
　　　Next
　　　.ClearContents
　 End With
　 Application.ScreenUpdating = True
　
　 rng.Value = Ar2()
　 Set rng = Nothing
End Sub

この回答へのお礼

解答いただいた方ありがとうございます。

お礼日時：2006/02/26 15:30

No.6 回答者： cockerel 回答日時： 2006/02/17 10:09

No4です。

E1に=A1、E2に=A1、をそれぞれ入力し、E1およびE2を選択してフィルハンドルをE6までドラッグします。さらに横にH6までドラッグします。コピー＆値ペーストをします（安全のため）。アクティブ領域（A1:H6）を選択してH降順、E昇順でソートし、EからHを削除します。
ステップは多くなりますが、元のデータを変更しないで済みます。
（あわてて取り繕ったぼろ隠しのような答えで少々気恥ずかしい気もしますが、何かのご参考に）。

No.5 回答者： mu2011 回答日時： 2006/02/17 09:57

データ→並び替え→第１優先をＣ列→第２優先をＢ列で如何でしょうか。

No.4 回答者： cockerel 回答日時： 2006/02/17 09:40

No2です。

もう一度質問文を読み直しましたら完全に外していました。
無視してください。申し訳ありませんでした。
正しい妙案が浮かんだら書き込みます。

No.3 回答者： mike_g 回答日時： 2006/02/17 08:53

その程度のことなら、「一気」でなく“二気”で可能かと、

１．当該２行を選択して、右クリックから[切り取り]
２．１行目を選択して、右クリックから[切り取ったセ
　　ルの挿入]

No.2 回答者： cockerel 回答日時： 2006/02/17 07:09

A1からD6までご質問のデータが入っているとすると、データ＞並べ替えで3つまで指定できるのでD列、C列、B列の順でソーティングを設定すればよいように感じられますが、結果として示されている2行目がどのようなコンセプトでその位置に来ているのかわかりません。

それを除けば上記のとおりの方法でソーティングできるはずです（おまけ：並べ替えの要素が4以上になる場合には連番を使い、複数段階のソーティングを行います）。

No.1 回答者： popesyu 回答日時： 2006/02/17 03:19

例で示したものはどちらかというと表形式的なものです。

ですのでその状態で見るしかないもの。データベース的な処理をしたいのなら、どうにかして修正するしかないでしょう。

こんな感じで。
１０　A　　G　　
１１　B　　H
２０　C　　I　　○
２１　D　　J　　○
３０　E　　K
３１　F　　L

修正は量が多いのならマクロを組んでやってしまえば手っ取り早いでしょう。それが難しいのなら最初から入力しなおした方が後々のためにもお勧めかもしれません。