1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
| Cells.AutoFilter Application.ActiveSheet.AutoFilter.Sort.SortFields.Add Key:=Range( _ "A1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With Application.ActiveSheet.AutoFilter.Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With
Cells.AutoFilter Application.ActiveSheet.AutoFilter.Sort.SortFields.Add2 Key:= _ Range("A1"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption _ :=xlSortNormal With Application.ActiveSheet.AutoFilter.Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With
|