選擇。排序關鍵字1:= Range(“d 1“),Order1:=xlAscending,Header:=xlGuess,_
OrderCustom:=1,MatchCase:=False,Orientation:=xlTopToBottom,SortMethod _
:=xlPinYin,data option 1:= xlSortNormal
以上代碼按1,2,3的順序排序...在D列中,這應該可以解決問題。