如何通过VBA实现数据自定义排序？

作者：绿色风分类：时间：2022-08-17 浏览：91

楼主
biaotiger1

Q：如何通过VBA实现数据自定义排序？
A：在2003版本中，如果需要实现VBA自定义排序，需要先定义一个自定义序列，然后在sort方法中引用该序列所在索引号。即可。
代码如下

Sub 自定义序列并按行排序2003版()
Application.AddCustomList ListArray:=Array("字段名称7", "字段名称1", "字段名称14", "字段名称2", "字段名称3", "字段名称10", "字段名称4", "字段名称5", "字段名称12", "字段名称15", "字段名称6", "字段名称8", "字段名称9", "字段名称11", "字段名称13")
Debug.Print Application.CustomListCount
Worksheets("代码运行后效果").Range("A1:O24").Sort _
key1:=Range("A1"), _
order1:=xlAscending, _
OrderCustom:=Application.CustomListCount + 1
End Sub

在2010版本中，sort方法做了比较大的改动，无需定义自定义序列，即可直接在sort方法中引用该自定义序列。极大地扩展了sort方法应用的便利性
代码如下

Sub 自定义序列并按行排序2010版()
With Worksheets("代码运行后效果")
With .Sort
With .SortFields
.Clear
.Add Key:=Range("A1:O1") _
, SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"字段名称7,字段名称1,字段名称14,字段名称2,字段名称3,字段名称10,字段名称4,字段名称5,字段名称12,字段名称15,字段名称6,字段名称8,字段名称9,字段名称11,字段名称13" _
, DataOption:=xlSortNormal
End With
.SetRange Range("A1:O24")
.Orientation = xlLeftToRight
.Apply
End With
End With
End Sub

如何用宏实现自定义横向排序.rar

2楼
开心E点

i学习

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表