[已解决]宏 排序问题

kekiangel

如附件，要求在里面，急！请教宏代码， 向高人求救。。

最佳答案

月排行榜 / 总排行榜

轩辕轼轲

2014-4-17 17:03

一句话搞定

1. Sub 按钮1_Click()
   
2.     Selection.Sort Key1:=Range("A1"), order1:=2
   
3. End Sub

复制代码

跳转到最佳答案楼层

轩辕轼轲

一句话搞定

1. Sub 按钮1_Click()
   
2.     Selection.Sort Key1:=Range("A1"), order1:=2
   
3. End Sub

复制代码

kekiangel

轩辕轼轲 发表于 2014-4-17 17:03
一句话搞定

如果按照2列如何排序  A列降序，B列升序。

轩辕轼轲

Sub 按钮1_Click()
    Selection.Sort Key1:=Range("A1"), order1:=2,Key2:=Range("B1"), order2:=1
End Sub
如果按照2列如何排序  A列降序，B列升序。