|
花了点时间整明白Sort这个玩意,留着备用;
Sub 排序之Sort()
Sheet3.Range("A1:CN6").Sort Key1:=Range("N1"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=n + 1, MatchCase:=True
'↑↑↑↑↑↑↑↑....以上为实际操作时的代码写法,特别注意Sort key1中间的空格必须要有....↑↑↑↑↑↑↑↑
'=========================================================================================================================================================================================================================>
'↓↓↓↓↓↓↓↓....以下为便于说明,方便查看....↓↓↓↓↓↓↓↓
语法:expression.Sort(Key1, Order1, Key2, Type, Order2, Key3, Order3, Header, OrderCustom, MatchCase, Orientation, SortMethod, DataOption1, DataOption2, 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 MatchCase:=True '...................设置为True以执行区分大小写的排序, 设置为 False 以执行不区分大小写的排序; 否则为False 。不能用于数据透视表。
.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 对应值的说明 *******************************************
'xlChart........................(或-4109) = 图表
'xlDialogSheet..................(或-4116) = 对话框工作表
'xlExcel4IntlMacroSheet.........(或4) = Excel 版本 4 国际宏工作表
'xlExcel4MacroSheet.............(或3) = Excel 版本 4 宏工作表
'xlWorksheet....................(或-4167) = 工作表Worksheet
End Sub
|
评分
-
1
查看全部评分
-
|