- 'A:F遞增排序
- ActiveSheet.Columns("A:F").Select
- Selection.Sort Key1:=ActiveSheet.Range("C2"), Order1:=xlAscending, Header:=xlGuess, _
- OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
- :=xlStroke, DataOption1:=xlSortNormal
複製代碼 以上是遞增排序的巨集~
但是排序後~資料內有A1.XXXXX~A10.XXXXXXX
遞增排序~卻是
A1.XXXXX
A10.XXXXX
A2.XXXXXXX
如何讓它變成
A1.XXXXXX
A2.XXXXX |