エクセルで離れた行同士をソートする方法

タイトルでは分かりにくいかもしれませんが。
0　10　0　5
1　9　2　4
2　8　4　3
3　7
4　6
こういった表になっているとき。
0　10　0　5
1　9
2　8　2　4
3　7
4　6　4　3
のようにA列とC列を連動させてソートする方法があれば教えてください。マクロになってしまうのならマクロでも結構です。

No.3 回答者： imogasi 回答日時： 2007/02/12 13:52

質問の内容の特徴を捉えにくい質問表現ですね。

質問において、私は常々、例は絶対必要と、ＯＫＷＡＶＥ回答で力説してます。
しかし例だけではわかりにくい場合も多い。例は挙げかたによっては
特徴を捨て去る場合もある。本件例などでは、０，１，２・・など１つしかない、続いた例ですが、実際はどうなのか。
重複ありやＡＢ列なしＣＤ列ありなどが例では現れていません。
プログラムを少し経験すると、その条件でプログラムロジックが大きく変わることが経験できます。
ーー
本題は
（１）Ａ列＋Ｂ列ででソート
（２）Ｃ列＋Ｄ列でソート
（３）Ｃ，Ｄ列はＡ，Ｂ列に釣り合った場所（行）に持ってくる。
ように見えるが、それで正しいですか。（３）が曲者。
それとＣＤ列ありは、必ずＡＢ列ありよりデータ列が少ないのでしょうか。
０　１０　
　　　　　１　３
０　８　　１　２
２　４
などないのでしょうか。
ーーー
ＶＢＡ向きの問題だと思いますね。
Sub test02()
d = Range("A65536").End(xlUp).Row
'--Ａ－Ｄ列をＥ－Ｈ列にコピー（ソートのため）
Range("a1:D" & d).Copy Range("E1")
'--ソート
Range("E1:F" & d).Sort key1:=Range("E1"), key2:=Range("F1")
Range("G1:H" & d).Sort key1:=Range("G1"), key2:=Range("H1")
'--Ｅ－Ｆ列をＩ－Ｊ列にコピー
Range("E1:F" & d).Copy Range("I1")
'--G,H列をＫ、Ｌ列に再配置
d1 = Range("G65536").End(xlUp).Row
For i = 1 To d1
r = Range("I1:I" & d).Find(what:=Cells(i, "G")).Row
Cells(r, "K") = Cells(i, "G")
Cells(r, "L") = Cells(i, "H")
Next i
End Sub
質問例で、実行結果はＩ、Ｊ，Ｋ，Ｌ列で
01005
19
2824
37
4643
ただ上記ＶＢＡコードのＦｉｎｄは、必ず見つかるものとの前提で、
１つしかないという仮定で、手抜きしてます。

No.2 回答者： noname#79209 回答日時： 2007/02/09 09:54

これを「ソートに関する課題」と認識しているとハマってしまうでしょう。

むしろ、データベースでいうクエリに近いですね。
データそのものを動かすのではなく、「適合するデータを拾ってくる」と考えるべきです。

そこで、B列とC列に新たに2列挿入し、元のC,D列をE,F列とします。
新たなC列には、
=IF(ISNA(VLOOKUP(A1,$E$1:$F$3,1,FALSE)),"",VLOOKUP(A1,$E$1:$F$3,1,FALSE))
D列には
=IF(C1="","",VLOOKUP(A1,$E$1:$F$3,2,FALSE))
でよろしいかと．．．．

No.1 回答者： qno 回答日時： 2007/02/08 19:47

こんな方法ではダメでしょうか？

空いている列（Ｅ列など）に、VLOOKUP関数で、
=VLOOKUP(A1,$C$1:$C$5,1,FALSE)　します。するとA列とC列の同じ数字が同じ行に並びます。
C列に該当数字がないとエラーが返りますが、オートフィルターでその行だけ表示させて削除してしまえば早いと思います。