作者：绿色风
分类：
时间：2022-08-18
浏览：63
楼主
zzmxy |
前面，标版已经有探讨过如何在03及07版本中，运用自定义序列进行排序，但自定义序列是手录方式，
而如果我们要使用已有的数据区域，作为排序的基准，那要如何操作呢？
比如说下面的例子，要求使用Sheet2 A列已有的数据作为序列，对Sheet1的数据进行排序：
其实思路也比较简单，先用Transpose()将数据区域赋给一个一维数组变量arr，
然后用Join()函数，将arr串接为以逗号分割的自定义序列，最后使用Cstr()函数赋给CustomOrder，具体代码如下：- Sub SheetSort()
- arr = WorksheetFunction.Transpose(Sheet2.Range("A2:A" & Sheet2.Cells(1, 1).End(xlDown).Row))
- CusList = Join(arr, ",") '使用Join函数从上面的区域数组arr创建自定义排序列表
- With Sheet1.Sort
- .SortFields.Clear
- .SortFields.Add Key:=Range("A1"), SortOn:=xlSortOnValues, Order:=xlAscending, _
- CustomOrder:=CStr(CusList), DataOption:=xlSortNormal
- .SetRange Range("A1:B12")
- .Apply
- End With
- End Sub
大家也可以参考标版的帖子，使用手动编辑自定义序列的方法：
[Excel VBA] 如何通过VBA实现数据自定义排序？ http://www.exceltip.net/thread-7341-1-1.html
 自定义排序.rar
|
2楼
mn860429 |
跟着学习
 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一