エクセルマクロについて教えてください

質問

エクセルで　A～F列に　「　組　No.　枠 　記号　コードA　コードB」と並べています。
２行目以降に、「記号」を除き数値が入ります。
※　お手数をおかけしますが画像を確認願います。ご覧頂いたほうがわかりやすいと思いますので。

これを、
(1)　組・No.・枠　固定　（記号・コードA・コードBが並び変わっても不動）
(2)　コードA　降順
(3)　コードB　昇順
(4)　２～９行目の　コードAを昇順で枠Aに指定された順に

上記のように並べ替えをしたい場合、どのようなマクロを作成したらよろしいでしょうか？

回答No.2

keithin

記号，コードＡ・Ｂのセル範囲を選ぶ
データメニューの並べ替えを開始する
添付図のように
　第１優先　コードＢ　昇順
　第２優先　コードＡ　降順

　先頭行はタイトル行にマークして
並べ替える

と出来ます。
必要なら以上の操作を新しいマクロの記録でマクロに録って，ご利用いただいても勿論構いません。

＃ただし，あなたが用意できる実際のホンモノデータで，コードＢがきちんと枠の数ずつ用意されているのかといった現実の問題点についてキチンと確認をして，必要に応じてマクロを考えないとイケナイかもしれませんね。必要なら別途のご相談として改めて（例えばじゃなく）具体的な事実の状況を添えて，ご質問を投稿してみてください。

お礼

わかりにくい質問にも関わらず、
ご回答いただきありがとうござます。

回答No.1

mzon

Range("D2:F25").Select
Selection.Sort Key1:=Range("E2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin
Selection.Sort Key1:=Range("F2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin
Range("D2:F9").Select
Selection.Sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin
だそうです。（Ｅｘｃｅｌ2000です）
単純にやりたいことをマクロの記録で記録すればいいと思いますよ。

お礼

わかりにくい質問にも関わらず、
ご回答いただきありがとうござます。