[Excel VBA]自定义排序的三种方法

[Excel VBA]自定义排序的三种方法

诸君好，前前期我们聊了VBA编程和数据的常规排序……VBA常用小代码105：Rang对象的排序操作……

今天我们再聊下自定义排序……

何谓自定义排序，就是按指定的顺序对数据源进行排序呗……

今一共分享了三种方法。

第1种方法是系统自带的OrderCustom，优点是代码简洁，缺点是自定义序列有字符长度限制（255个）。

第2种方法是字典+数组设置序列号，再使用了辅助列进行排序。优点是不会破坏单元格的形式和结构，比如单元格中存在的公式、背景等。

第3种方法是只使用字典+数组，借助简单桶排序的技巧，直接对数据在数组中进行排序。优点是效率较高，缺点是会破坏单元格的结构，比如消除公式等。

（第1种建议掌握，第2种建议了解，第3种……能懂就懂，不懂先放着吧~）

举个例子。

如下图所示，A:C列是数据源。

现需要根据E列所指定的部门先后顺序，对数据源进行重新排序，如果部门不在指定序列内，则排放在数据源末尾。

排序结果如下图。

第1种方法代码如下：Sub FreeSort()'eh技术论坛 VBA编程学习与实践 看见星光Dim n&, rng As RangeSet rng = Range("e2:e" & Cells(Rows.Count, "e").End(xlUp).Row)Application.AddCustomList (rng)'增加一个自定义序列,该参数除了支持单元格对象，也支持数组。n = Application.CustomListCount'自定义序列的数目Range("a:c").Sort key1:=[a1], order1:=xlAscending, Header:=xlYes, ordercustom:=n + 1'使用自定义排序，ordercustom指定使用哪个自定义序列排序。'当使用自定义排序时，需要将OrderCustom参数设置为指定的序列在自定义列表中的顺序加1Application.DeleteCustomList n'删除新增的自定义序列End Sub

题外话：

之前我们讲过，数组和字典是VBA处理数据的最佳利器，这是由于数组可以提高计算效率，字典可以关联多个数据源构建各种关系，因此这里再次对学习VBA的童鞋们提个小建议，不要在单元格工作簿等对象上浪费太多时间，那是熟能生巧的事物，数组和字典才是学习VBA的核心要义哦。

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。