目的 指定した列で指定範囲を並べ替えます。
実行前
Sub Sort03() Range("A1").Sort Key1:=Range("B1"), _ Order1:=xlAscending, _ Key2:=Range("A1"), _ Order2:=xlDescending, _ Header:=xlYes End Sub
実行後