ActiveSheet.Sort.SortFields

　Excel 2007以降、セルの並べ替え方法が変わっています。ポイントは、まずSortFieldsコレクションに並べ替えの基準を設定し、次にSortオブジェクトのApplyメソッドにより並べ替えを実行する点です。

　SortFieldsコレクションは「並べ替え」ダイアログボックスで指定する「レベル」に相当します。並べ替えの条件を設定する前に、既存のSortFieldsオブジェクトをクリアします。そしてAddメソッドを使って新しいSortFieldsオブジェクトを追加します。その際、引数Keyに並べ替えのキーとするセルを指定します。引数Orderには、昇順（xlAscending、省略可）か降順（xlDescending）かを指定します。

　Sortオブジェクトで並べ替えを実行するには、SetRangeメソッドで並べ替えの範囲を指定した上で、Applyメソッドを実行します。

[画像のクリックで拡大表示]