エクセルで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 · ベストアンサー

こんばんは。

一応、現在は、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

お礼

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

回答No.6

cockerel

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

回答No.5

mu2011

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

回答No.4

cockerel

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

回答No.3

noname#204879

その程度のことなら、「一気」でなく“二気”で可能かと、
１．当該２行を選択して、右クリックから[切り取り]
２．１行目を選択して、右クリックから[切り取ったセ
　　ルの挿入]

回答No.2

cockerel

A1からD6までご質問のデータが入っているとすると、データ＞並べ替えで3つまで指定できるのでD列、C列、B列の順でソーティングを設定すればよいように感じられますが、結果として示されている2行目がどのようなコンセプトでその位置に来ているのかわかりません。それを除けば上記のとおりの方法でソーティングできるはずです（おまけ：並べ替えの要素が4以上になる場合には連番を使い、複数段階のソーティングを行います）。

回答No.1

popesyu

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

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

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