VBA排序之Sort说明
花了点时间整明⽩Sort这个玩意,留着备⽤;
Sub排序之Sort()
Sheet3.Range("A1:CN6").Sort Key1:=Range("N1"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=n +1, MatchCa:=True
'↑↑↑↑↑↑↑↑....以上为实际操作时的代码写法,特别注意Sort key1中间的空格必须要有....↑↑↑↑↑↑↑↑
'========================================================================================================================== ===============================================================================================>
'↓↓↓↓↓↓↓↓....以下为便于说明,⽅便查看....↓↓↓↓↓↓↓↓
语法:expression.Sort(Key1, Order1, Key2,Type, Order2, Key3, Order3, Header, OrderCustom, MatchCa, Orientation, SortMethod, DataOption1, Dat aOption2, DataOption3)
'expression 必须。⼀个表⽰ Range 对象的变量
With Sheet3.Range("A1:CN6")
.Sort Key1:=Sheet3.Range("N1")'..........第⼀排序关键字。
.Sort Order1:=xlAscending '...............第⼀关键字排序⽅式xlAscending(或1)=升序,xlDescending(或2)=降序。
.Sort Key2:=Range("F1")'.................第⼆关键字。
.Sort Type:=xlChart '.....................指定要排序的元素。
.Sort order2:=xlAscending '...............第⼆关键字排序⽅式xlAscending(或1)=升序,xlDescending(或2)=降序。
.Sort key3:=Sheet3.Range("B1")'..........第三关键字。
.Sort order3:=xlAscending '...............第三关键字排序⽅式xlAscending(或1)=升序,xlDescending(或2)=降序。
.Sort Header:=xlGuess '...................指定第⼀⾏是否包含标题。xlGuess(或0)=⼯作表⾃⼰判断是否有
标题,xlYes(或1)=强制第⼀⾏为列标题(不参与排序),xlNo(或2)=强制没有列标题(全部参与排序)
.Sort OrderCustom:=n +1'................指定在⾃定义排序次序列表中的基于⼀的整数偏移(例:同⼀列中有ABCD,可以指定按DCBA或CDAB⾃定义排序,n变量可以是数组,也可以是单元格区域)
.Sort MatchCa:=True'...................设置为True以执⾏区分⼤⼩写的排序, 设置为 Fal 以执⾏不区分⼤⼩写的排序; 否则为Fal 。不能⽤于数据透视表。
.Sort Orientation:=xlSortColumns '........指定是应按⾏还是按列进⾏排序。 xlSortColumns(或1)按列排序。 xlSortRows(或2)=按⾏排序。
.Sort SortMethod:=xlPinYin '..............指定排序⽅法。xlPinYin(或1)=按字符的汉语拼⾳顺序排序,xlStroke()=按每个字符的笔划数排序。
.Sort dataoption1:=xlSortNormal '.........指定如何对_Key1_中指定的范围内的⽂本进⾏排序;不适⽤于数据透视表排序。xlSortNormal(或0)=分别对数字和⽂本数据进⾏排序(默认值),xlSortTextAsNumbers(或1)=将⽂本作为数字型数据进⾏排序。
.Sort dataoption2:=xlSortNormal '.........指定如何对_Key2_中指定的范围内的⽂本进⾏排序;不适⽤
于数据透视表排序。xlSortNormal(或0)=分别对数字和⽂本数据进⾏排序(默认值),xlSortTextAsNumbers(或1)=将⽂本作为数字型数据进⾏排序。
.Sort dataoption3:=xlSortNormal '.........指定如何对_Key3_中指定的范围内的⽂本进⾏排序;不适⽤于数据透视表排序。xlSortNormal(或0)=分别对数字和⽂本数据进⾏排序(默认值),xlSortTextAsNumbers(或1)=将⽂本作为数字型数据进⾏排序。
End With
'******************************************* 关于第四个参数 Type 对应值的说明 *******************************************
'(或-4109) = 图表
'(或-4116) = 对话框⼯作表
'.(或4) = Excel 版本 4 国际宏⼯作表
'.(或4) = Excel 版本 4 国际宏⼯作表'(或3) = Excel 版本 4 宏⼯作表
'(或-4167) = ⼯作表Worksheet
End Sub