Sort by one column

'Sort Group, SubGroup, Project
Worksheets("Groups").Activate
Range("B3:Z65536").Select
Selection.Sort Key1:=Range("I3"), Order1:=xlAscending, Header:=xlNo, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal
Worksheets("Subgroups").Activate
Range("B3:Z65536").Select
Selection.Sort Key1:=Range("L3"), Order1:=xlAscending, Header:=xlNo, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal
Worksheets("Projects").Activate
Range("B3:Z65536").Select
Selection.Sort Key1:=Range("T3"), Order1:=xlAscending, Header:=xlNo, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal

posted on 2010-06-28 17:33 刘宁Toby 阅读(283) 评论(0) 编辑收藏举报