Excel VBA 入門講座 ソート Sort'セル範囲"A1:B100"を2列目をキーにして昇順にソート Sub SortTest() Worksheets("Sheet1").Activate Worksheets("Sheet1").Range(Cells(1, 1), Cells(100, 2)) _ .Sort Key1:=Worksheets("Sheet1").Cells(1, 2),order1:=xlAscending End Sub 'セル範囲"A1:B100"を2列目をキーにして降順ににソート Sub SortTest() Worksheets("Sheet1").Activate Worksheets("Sheet1").Range(Cells(1, 1), Cells(100, 2)) _ .Sort Key1:=Worksheets("Sheet1").Cells(1, 2),order1:=xlDesce
