[已解决]求 EXCEL 排序的 宏

010203400

如附件，我要用采購、物料、開始日期 來排序，

日期要從舊到新的日期排序，

最佳答案

月排行榜 / 总排行榜

爱疯

2013-7-27 08:05

1. Sub test()
   
2.     Range("A:U").Sort Key1:=Range("M2"), Order1:=xlAscending, _
   
3.                       Key2:=Range("G2"), Order2:=xlAscending, _
   
4.                       Key3:=Range("E2"), Order3:=xlAscending, _
   
5.                       Header:=xlGuess
   
6. End Sub
   

复制代码

跳转到最佳答案楼层

wayy

1. Range("A1:U21").Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1

复制代码

录个宏看看就是了，一句话的代码

010203400

wayy 发表于 2013-7-26 16:04
录个宏看看就是了，一句话的代码

你好！
以上代碼只有一個排序條件，我想加入第二和第三，這個要如何加？

這樣可以嗎？
Range("A:U").Sort Key1:=Range("M2"), Key2:=Range("G2"), Key3:=Range("E2"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1

010203400

有人可以幫忙嗎，在線等，比較急。
, 還有哪個高手在啊，幫忙處理。

010203400

曉得的周六有不以有人來哦
坐等指教。

爱疯

1. Sub test()
   
2.     Range("A:U").Sort Key1:=Range("M2"), Order1:=xlAscending, _
   
3.                       Key2:=Range("G2"), Order2:=xlAscending, _
   
4.                       Key3:=Range("E2"), Order3:=xlAscending, _
   
5.                       Header:=xlGuess
   
6. End Sub
   

复制代码

010203400

3Q, OK了。
不過，請教一下“OrderCustom:=1”這句的用意是什么啊？

爱疯

http://www.excelpx.com/thread-229131-1-1.html
最后一段