Sort by one column

最新推荐文章于 2023-08-26 16:12:19 发布

weixin_30559481

最新推荐文章于 2023-08-26 16:12:19 发布

阅读量117

点赞数

原文链接：http://www.cnblogs.com/lotussoft/archive/2010/06/28/1766898.html

版权

'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

转载于:https://www.cnblogs.com/lotussoft/archive/2010/06/28/1766898.html