excelマクロで意図通りのソートをかけるVBA

よろしくお願いいたします。excelのマクロで適切な方法をお教えいただければと思います。

ひとつの列でソートした後に，その結果の中でさらにソートをかける方法についてです。

言葉でうまく説明しにくいので図を添付しました。それを例に質問させていただきます。
データの３列目の日付の項目で昇順に並べ替えた後に，日付ごとそれぞれのくくりで２列めの分類の項目をA，B，Cごとの順にまとめて並べ替えることができればと思います。

最初の段階での，「分類」，「日付」の並び順は，規則性がなくランダムです。
結果がえられれば，方法や順番などはこだわりません。

よろしくお願いいたします。

No.1 ベストアンサー 回答者： fujillin 回答日時： 2017/06/09 11:00

こんにちは

Sortメソッドは、並べ替えのキーを3種類まで指定できるようになっていますので、これを利用するのがよろしいかと思います。
https://msdn.microsoft.com/JA-JP/library/office/ …
2種類のキーを設定しておくことで、一度でご希望の結果を得ることができます。

ご提示の図では具体的なセルの範囲がわかりませんが、以下は『B2:D22』と仮定した場合の例です。
Range("B2:D22").Sort Key1:="日付", Order1:=xlAscending, _
　　　　　　　　　Key2:="分類", Order2:=xlAscending, _
　　　　　　　　　Header:=xlGuess

この回答へのお礼

ありがとうございました。
コードの例まであげていただき，感謝いたします。
問題は無事に解決いたしました。
sort機能について知識不足でした。
ありがとうございました。

お礼日時：2017/06/12 11:41

No.2 回答者： tatsu99 回答日時： 2017/06/09 11:01

第1キーに日付、第２キーに分類を指定すればよいかと。

この回答へのお礼

ありがとうございました。

お礼日時：2017/06/12 11:41