Sub sort_category() ' sort_category Macro ' Keyboard Shortcut: Ctrl+q ' y = 9 '最後の列 With ActiveSheet x = .Cells(.Rows.Count, "C").End(xlUp).Row '最後の行(個数-1) End With Range("C1").Select ActiveWorkbook.Worksheets("現役").Sort.SortFields.Clear ActiveWorkbook.Worksheets("現役").Sort.SortFields.Add Key:=Range(Cells(2, 3), Cells(x, 3)), _ SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _ "ドライレイヤー,ベースレイヤー,ミドルレイヤー,インサレーション,ソフトシェル,ハードシェル,パンツ,ビーニー/キャップ,ネックゲイター,グローブ,ソックス,シューズ,バックパック" _ , DataOption:=xlSortNormal ActiveWorkbook.Worksheets("現役").Sort.SortFields.Add Key:=Range(Cells(2, 4), Cells(x, 4)), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets("現役").Sort.SortFields.Add Key:=Range(Cells(2, 5), Cells(x, 5)), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("現役").Sort .SetRange Range(Cells(1, 1), Cells(x, y)) .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub