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, So...
l 参数Order1、Order2、Order3,分别确定参数Key1、Key2、Key3指定值的排序顺序,相应的常量值是xlDescending或者xlAscending(默认)。 l 参数Type,指定要排序的元素。仅用于数据透视表,可以指定为xlSortLabels或者xlSortValues。 l 参数Header,指定是否第一行包含标题信息,默认为xlNo。如果想要Excel尝试确定标题,那么指...
SortMethodAs XlSortMethod, _ DataOption1As XlSortDataOption, _ DataOption2As XlSortDataOption, _ DataOption3As XlSortDataOption) 说明: 所有参数均可选。 参数Key1、Key2、Key3指定排序字段,确定要排序的值,但参数Key2、Key3不能用于排序数据透视表。...
Sub 标准排序() Dim rng As Range Dim i As Long ' 设置数据范围为当前区域 Set rng = ActiveSheet.Range("A1").CurrentRegion ' 获取行数 i = rng.Rows.Count ' 按照第三列进行降序排序 rng.Sort Key1:=rng.Cells(2, 3), Order1:=xlDescending, Header:=xlYes End Sub Set rng = ActiveSheet.Ran...
1. 带参数名引用,如: key1:=Range("G3") 带参数名引用时 2. 参数位置引用,即按照上述Sort命令的参数顺序直接应用, 如: Range("A1:I19").Sort key1:=Range("G3") 即第1位置参数即为key1 ② Order1、Order2、Order3 这些Order是排序的顺序模式指定参数。即: A-Z升序、或Z-A降序 ...
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,...
通过录制宏的方式,得到sort排序的VBA代码,整理之后,记录如下: 代码语言:javascript 代码运行次数:0 运行 AI代码解释 Sub多条件排序()'1设置排序的条件 With ActiveSheet.Sort.SortFields.Clear.Add2 Key:=Range("C2:C8"),_SortOn:=xlSortOnValues,Order:=xlAscending,DataOption:=xlSortNormal.Add2 Key:=Range("...
.Sort.SortFields.Clear '清空自定义排序的规则 '增加4个key值 .Sort.SortFields.Add Key:=.Range("K10"), SortOn:=xlSortOnValues, Order:=xlAscending .Sort.SortFields.Add Key:=.Range("d10"), SortOn:=xlSortOnValues, Order:=xlAscending .Sort.SortFields.Add Key:=.Range("e10"), SortOn:=xlSortOn...
我们i可以利用range.sort实现,表达式如下: range.sort(Key1、Order1、Key2、Type、Order2、Key3、Order3、Header、OrderCustom、MatchCase、Orientation、SortMethod、DataOption1、DataOption2、DataOption3) sort参数说明 参数中的ordercustom为可选参数,它是一个数值型参数,取值对应excel中自定义序列中的行号。
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _:=xlPinYin Range("B2").Select '第二次排序，按基准D1,A1,B1 来实现 Selection.Sort Key1:=Range("D1"), Order1:=xlAscending, Key2:=Range("A1") _, Order2:=xlAscending, Key3:=Range("B1"), Order3:=...