日期:2014-05-20 浏览次数:20950 次
ExcelSheet.Range("A2:J20").Sort Key1:=Range("J1"), Order1:=xlDescending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ SortMethod:=xlPinYin, DataOption1:=xlSortNormal