如何使用VBA代码对表格中的数据排序处理？

就一个字 我只说一次 恐怕听见的人勾起了相思……

爱就一个字 张信哲 - 我好想

哈喽，我还是星光，今晚我们聊Rang对象的“排序”……
这年头，小屁孩都寄道数据排序是数据处理过程中非常重要的一个环节，Excel也直接提供了【排序】的基础功能，VBA代码与之相对应的，便是Rang对象的Sort方法。
举个栗子。如下图所示，需要对B列的语文成绩，按升序排列。
代码如下▼

代码解析见注释
如看不全，可以左右拖动...

Sub SortDemo()    Range('A:B').Sort key1:=[b1], order1:=xlDescending, Header:=xlYesEnd Sub

Sort的语法如下▼

expression.Sort(Key1, Order1, Key2, Type, Order2, Key3, Order3, Header, OrderCustom, MatchCase, Orientation, SortMethod, DataOption1, DataOption2, DataOption3)
看起来略复杂……但最常用的其实只有三个部分。
举参数Key1、Key2、Key3都是可选的，分别指定第一、二、三排序字段，作为区域名称或Rang对象，比如此例中的[b1]，确定要排序的值。
参数Order1、Order2、Order3可选，分别对应Key1、2、3的排序次数。其中xlAscending为升序排列（默认值），xlDescending为降序排列。
参数Header可选，指定第一个行是否包含标题行。常用的有两个值，lNo为不包含标题行（默认值），xlYes为包含标题行。
这里需要说明的是，Rang对象的Sort方法一次最多可以指定3个排序字段……当排序字段超过3个时，通常执行多次Sort方法进行处理。
再举个栗子（最近炒栗子吃过了……）如下图所示，需要分别按照总分、语文、数学、英语的成绩降序排序。
代码如下▼

代码解析见注释
如看不全，可以左右拖动...

Sub SortDemo()    Dim i&    For i = 5 To 2 Step -1    '一共4个排序字段，分别处于b1:e1单元格,从后向前遍历排序        Range('a:e').Sort key1:=Cells(1, i), order1:=xlDescending, Header:=xlYes    NextEnd Sub

小贴士▼

? 进行多次单元格对象的Sort排序时，操作字段的次序和排序目的是反过来的，也就是说优先排序级别越高的字段，总是放在最后进行排序。例如该例中的总分、语文、数学和英语，代码遍历操作是英语、数学、语文和总分。
? 为了减少排序动作的次数，提高代码运算效率，除了可以屏蔽屏幕更新（Application.ScreenUpdating = False），也可以尽可能的在每次排序过程中指定多个字段，而非一个字段。
? 除了使用Rang对象进行排序操作，也可以使用WorkSheet对象的Sort方法，该方法并没有3个关键字的上限；另外，也可以使用数组构建算法，Excel VBA常用的排序算法由冒泡排序、桶排序、快速排序等，我们后期会陆续聊到~~
……拥抱，安，明见……
赞 (0)

相关推荐