VBA 排序之Sort说明

yzzgzh

花了点时间整明白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

zjhclub

学习一下，学习一下，学习一下。

renkangjizhen

学习了！受教了

foreverwatson

木木1999

牛逼，学习了，期待更新；。

rainfarm

录制了一段宏，看着费劲，百度到这，感谢楼主

aeuser

谢谢朋友分享.