EXCEL分列打印.docVIP

Sub zldccmx()??? Application.ScreenUpdating = False??? Application.DisplayAlerts = False??? Sheet2.Activate??? Range(A2:F5).Select??? Range(Selection, Selection.End(xlDown)).Select??? Selection.Sort Key1:=Range(A3), Order1:=xlAscending, Key2:=Range(B3) _???????????????? , Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _???????????????????????????????????????????????????????????????????????????????????? False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:= _?????????????????????????????????????????????????????????????????????????????????????????????