Range("A1:I19").Sort key1:=Range("G3"), Order1:=xlAscending, _ Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _ Orientation:=xlTopToBottom, SortMethod:=xlPinYin, _ DataOption1:=xlSortNormal 直接按参数位置: Range("A1:I19").Sort [G3], 1, , , , , ,0, 1, 0, 1, 1...
曹操（cao）在第一位，诸葛亮（zhu）在最后一位。我们也可以使用SortMethod参数把中文排序方式改为按笔画数排列，如：Range("A1:G15").Sort Key1:=Columns("A"), order1:=xlAscending, Header:=xlYes, SortMethod:=xlStroke 把SortMethod参数设置成xlStroke可以按笔画数排序，得到结果为：按行排序 我们一般的...
Range对象.Sort(Key1,Order1 As XlSortOrder, _ Key2,Type,Order2 As XlSortOrder, _ Key3,Order3 As XlSortOrder, _ Header As XlYesNoGuess, _ OrderCustom,MatchCase, _ Orientation As XlSortOrientation, _ SortMethod As XlSortMethod, _ DataOption1 As XlSortDataOption, _ DataOption2 As Xl...
Range("A1:C" & Myrows).Sort Key1:=Range("a1"), Order1:=xlAscending, Key2:=Range( _"b1"), Order2:=xlAscending, Key3:=Range("c1"), Order3:=xlDescending, _Header:=xlYes 第一排序是Range("a1"),是升序,第二排序条件是Range("b1"),也是升序,第三排序条件是Range("c1"),是降序，上述...
参数Order1、Order2、Order3,分别确定参数Key1、Key2、Key3指定值的排序顺序,相应的常量值是xlDescending或者xlAscending(默认)。 参数Type,指定要排序的元素。仅用于数据透视表,可以指定为xlSortLabels或者xlSortValues。 参数Header,指定是否第一行包含标题信息,默认...
:=xlPinYin Range("B2").Select '第二次排序，按基准D1,A1,B1 来实现 Selection.Sort Key1:=Range("D1"), Order1:=xlAscending, Key2:=Range("A1") _, Order2:=xlAscending, Key3:=Range("B1"), Order3:=xlAscending, Header:= _xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xl...
Range("A1:G15").Sort Key1:=Columns("A"), order1:=xlAscending, Header:=xlYes 得到顺序为: 曹操(cao)在第一位,诸葛亮(zhu)在最后一位。 我们也可以使用SortMethod参数把中文排序方式改为按笔画数排列,如: Range("A1:G15").Sort Key1:=Columns("A"), order1:=xlAscending, Header:=xlYes, Sort...
rng.Sort Key1:="性别", Order1:=xlAscending, Header:=xlYes End Sub 运行代码后的结果如下图。进一步，添加第二个排序字段，代码如下：Sub testSort2()Dim rng As Range Set rng = Range("A1:G10")rng.Sort Key1:="性别", Order1:=xlAscending, Key2:="总分", Order2:=xlDescending,...
= ActiveSheet.Range("B3:I17")With ActiveSheet.Sort.SortFields.Clear '清除所有 SortFields 对象.SortFields.Add Key:=Range(xAdd & "4:" & xAdd & "17"), SortOn:=xlSortOnValues, _Order:=xlAscending, DataOption:=xlSortNormal'新建 SortFields 对象.SetRange SortRange '设置排序区域.Header = xlYes ...
SortOn:=xlSortOnValues,Order:=xlAscending, DataOption:=xlSortTextAsNumbers'自定义排序选项里边的设置WithActiveSheet.Sort .SetRange Range("F1:W176") .Header = xlYes .MatchCase =False.Orientation = xlLeftToRight'xlTopToBottom.SortMethod = xlPinYin ...