VBA 排序之Sort說明

花了點時間整明白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