【VBA研究】排序编程代码

作者：iamlaosong

1、在对Excel处理时经常会对工作表中的数据排序，排序代码怎么写？通过录制宏可以很容易得到（我学习VBA的方法基本就是查资料、录制宏），例如2003版可以得到如下排序语句：

Rows("1:1500").Select
Selection.Sort key1:=Range("L2"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    SortMethod:=xlPinYin, DataOption1:=xlSortNormal

代码是对L列进行排序，如果还有其它列，可以增加：
Rows("1:1500").Select
Selection.Sort key1:=Range("L1"), Order1:=xlAscending, _
    key2:=Range("A1"), Order2:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    SortMethod:=xlPinYin, DataOption1:=xlSortNormal    

排序语句实际就是Range对象的一个方法Sort，语句中参数变量排序关键字key1的值是Range("L1")，其中列号后面的行号似乎没什么用，所以Range("L2")、Range("L3")都没什么问题，也可以用列标题（相当于字段名），比如key1:="加油站编码"（这样写表示第一行包含标题，所以Header参数必须是：Header:=xlYes），多排序关键字，可以依次使用key2、key3等，2003版最多三个关键字。每个排序关键字可跟一个指定升序或降序的关键字，如Order1（也可以或略，默认升序）。除了排序关键字参数变量外，还有一个重要的参数变量就是Header，其值为xlGuess、xlYes