ExcelVBA数据排序
关注：VBA168
每天更新Excel VBA经典代码，祝你⼯作和学习更轻松！
在如图1所⽰数据列表中，需要按总成绩从⾼到低进⾏排序，⽰例代码如下。
Sub SortDemo()
Range("A1").Sort key1:="总成绩", order1:=xlDescending, _
Header:=xlYes
End Sub
运⾏SortDemo过程，排序结果如图2所⽰。
图1 待排序数据列表
图2 按总成绩降序排序结果
Range对象的Sort⽅法对区域进⾏排序，其语法格式如下。
Sort(Key1, Order1, Key2,Type, Order2, Key3, Order3, Header, OrderCustom, MatchCase, Orientation, SortMethod, DataOption1, DataOption2, DataOptio n3)
vba排序函数sort用法其中，参数Key1、Key2和Key3是可选的，分别指定第1排序字段、第2排序字段、第3排序字段，作为区域名称(字符串)或Range对象，以确定要排序的值。
参数Order1、Order2和Order3是可选的，其值可为xlAscending，按升序对指定字段排序(默认值)；或
者是xlDescending，按降序对指定字段排序。
参数Header是可选的，⽤于指定第1⾏是否包含标题信息，其值可为xlGuess，表⽰由Excel确定是否有标题；xlNo，表⽰不包含标题(默认值)；xlYes，表⽰包含标题。
Range对象的Sort⽅法最多可以指定3个排序字段，如下⽰例代码对图1所⽰数据集以“总成绩”、“学科1”和“学科2”分别为第1字段、第2字段和第3字段进⾏排序，排序结果如图3所⽰。
Sub SortDemoA()
Range("A1").Sort key1:="总成绩", order1:=xlDescending, _
key2:="学科1", order2:=xlDescending, _
key3:="学科2", order3:=xlDescending, _
Header:=xlYes
End Sub
图3 按3个关键字排序结果

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。