並べ替え

目的
指定した列で指定範囲を並べ替えます。

実行前

Sort機能
Key でSortする列を、Orderで昇順、降順を指定します。Headerは先頭行がデータでなく、項目名である(並べ替え対象でない)ことを意味します。
Sub Sort03()
 Range("A1").Sort Key1:=Range("B1"), _
   Order1:=xlAscending, _
  Key2:=Range("A1"), _
  Order2:=xlDescending, _
  Header:=xlYes
End Sub

実行後