請參考如下程式碼:
Range("A1:A10").Select "選中需要排序的資料區域
"按A列升序排,有標題行
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortTextAsNumbers
"按A列降序排,無標題行
Selection.Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlNo, _
:=xlPinYin, DataOption1:=xlSortNormal
在宏編輯器中,點中程式碼中的 Selection.Sort 再按 F1,即可看到Excel VBA關於排序的完整詳細的幫助說明與舉例.
GoodLuck!
請參考如下程式碼:
Range("A1:A10").Select "選中需要排序的資料區域
"按A列升序排,有標題行
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortTextAsNumbers
"按A列降序排,無標題行
Selection.Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal
在宏編輯器中,點中程式碼中的 Selection.Sort 再按 F1,即可看到Excel VBA關於排序的完整詳細的幫助說明與舉例.
GoodLuck!