【VBA研究】排序编程代码

最新推荐文章于 2025-06-13 09:44:29 发布

宋哥

最新推荐文章于 2025-06-13 09:44:29 发布

阅读量1.1w

点赞数 3

CC 4.0 BY-SA版权

分类专栏： VBA_Excel

本文链接：https://blog.youkuaiyun.com/iamlaosong/article/details/49490623

本文详细介绍了在VBA中对Excel工作表数据进行排序的方法，包括使用Rows对象的Sort方法、指定排序范围、取消筛选、处理排序选项等，并提供了不同版本Excel的排序代码示例，帮助理解VBA排序的灵活性和注意事项。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

作者：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")都没什么问题，也可以用列标题（相当于字段名），比