Excel中的ListObject对象：表中数据的排序及数据的筛选

摘要：《VBA高级应用30例》（版权10178985），是我推出的第十套教程，教程是专门针对高级学员在学习VBA过程中提高路途上的案例展开，这套教程案例与理论结合，紧贴“实战”，并做“战术总结”，以便大家能很好的应用。教程的目的是要求大家

《VBA高级应用30例》（版权10178985），是我推出的第十套教程，教程是专门针对高级学员在学习VBA过程中提高路途上的案例展开，这套教程案例与理论结合，紧贴“实战”，并做“战术总结”，以便大家能很好的应用。教程的目的是要求大家在实际工作中分发VBA程序，写好的程序可以升级。本套教程共三册三十个专题，本讲的内容是：VBA高级应用30例应用3在Excel中的ListObject对象：表中数据的排序及数据的筛选

【分享成果，随喜正能量】忍辱的意思包含

遇到负能量的东西

不要有任何情绪回应

回应则是与之纠缠

纠缠则受其损耗

只要内不接应

如逆天扬尘，

尘不至天还返本处

如是所有的恶念都将原路返回

心如水面，越静越能清透。

在VBA中，表(Tables)的应用还是较普遍的，它们被称为ListObjects，这是Excel 2003引入的一个集合。但是对象模型的这一部分有很大的变化，我在这个专题简单给大家讲解一下应用，包括创建及一些格式操作。

7 表中数据的排序及数据的筛选

对于表，我们可以得到一组全新的筛选和排序选项。这里我只展示了一小部分，单元格颜色的排序和单元格大小的排序，以及字体颜色的过滤器。

SortFields.Add 方法：创建新的排序字段，并返回一个 SortFields 对象。

语法：expression.Add (Key, SortOn, Order, CustomOrder, DataOption)

各个参数的意义：

名称

必需/可选

数据类型

说明

Key

必需

Range

指定用于排序的键值。

SortOn

可选

Variant

要进行排序的字段。

Order

可选

Variant

指定排序次序。

CustomOrder

可选

Variant

指定是否应使用自定义排序次序。

DataOption

可选

Variant

指定数据选项。

SortField.SortOn 属性：返回或设置要排序的单元格的属性。可读/写 XlSortOn 。

语法：expression.SortOn

枚举值：

名称

值

说明

SortOnCellColor

单元格颜色。

SortOnFontColor

字体颜色。

SortOnIcon

图标。

SortOnValues

值。

以上我们简单地介绍了在排序及筛选中需要用到的知识点，下面我们看一下代码。在工作表中我预先插入了一个表格，这个表格将用于我下面的一系列的代码，为了大家测试方便，我同时在后边给出了备份的表格及数据，大家可以复制及粘贴应用。如下：

1）首先，利用代码实现按照单元格颜色的排序：

Sub mynzTableColorSorting

With ActiveWorkbook.Worksheets("Sheet2").ListObjects("mynzTable")

.Sort.SortFields.Clear

'note:有的版本为Column2

.Sort.SortFields.Add _

Range("mynzTable[[#All],[列2]]"), xlSortOnCellColor, xlAscending, , _

xlSortNormal

With .Sort

.Header = xlYes

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

End Sub

代码讲解：上述代码实现了工作表中"mynzTable"表按照第2列的升序排列，特别要注意代码中的注解，"mynzTable[[#All],[列2]]" 在有的版本上写作Column2（我用的是2019版office，确实不清楚为何在此引入了中文元素，或许只是汉化过程吧。和高压送电操作系统，航天操作系统中相比，诚然，这也是必须的）。

代码的运行结果：