相关知识点:
要知道轮子是怎么造出来的,不要重复造轮子。
Range.Sort: VBA 内置的排序方法,15个参数。
(Key1,Order1,Type,Key2,Order2,Key3,Order3,Header,OrderCustom,MatchCase,Orientation,SortMethod,DataOption1,DataOption2,DataOption3)
- Key1,主关键字最多三个;Order1,排序次序,默认升序xlAscending排列(xlDescending降序)。
- Header:=xlYes,第一行作为标题栏不参与排序,xlNo代表无标题(默认),xlGuess自行判断。
- MatchCase:=True代表区分大小写,False不区分;对应排序选项里的区分大小写功能。
- Orientation按行排序xlSortRows或xllefttoright;按列排序xlSortColumns或xltoptobottom,对应排序选项里的“方向”。
- SortMethod排序方法,文字内容,按照拼音(xlPinin,默认)还是按照笔画个数(xlStroke,有时排序选项中没有,就不好用)。
- DataOption1 内容有文本格式的数字,是按照文本排序(xlsortNormal)还是数字排序(xlSortTextAsNumbers),指定Key1关键字是否按照文本的顺序排序或者按照数字看待。
- Type 在对Pivot Table(数据透视表)排序时使用,指定按照Lable还是Value进行排序。
- OrderCustom 自定义排序规则
例1 排序应用
Sub mysortRange()
Range(“B1:F1000”).Sort Key1:=Range(“B:B”),order1:=xlDescending
End Sub
例2文本排序应用(文本顺序请参照提高8)
Sub mysortRange2()
Range(“B2:B5”).sort Key1:=Range(“b1”),_ ‘b1等同于b列
Dataoption:=xlsortNormal
End Sub