22、Excel VBA：透视表、数据类型转换与单元格转置的实用技巧

Excel VBA：透视表、数据类型转换与单元格转置的实用技巧

1. 透视表的高级 VBA 应用

在处理 Excel 透视表时，VBA 代码能实现许多用户界面无法完成的操作，以下是一些常见应用及示例代码。

1.1 引入筛选器与隐藏项目

可以使用 VBA 代码为透视表添加筛选器，或者隐藏某些项目。例如，想要在透视表中不显示 “Hungry Foods” 这一客户的信息，可使用以下代码：

With ActiveSheet.PivotTables("PivotTable5").PivotFields("Customer")
.PivotItems("Hungry Foods").Visible = False
End With

若要再次显示该项目，只需将 Visible 属性设置为 True 。

1.2 创建筛选器

如果只想查看以字母 “R” 开头的客户信息，可使用以下代码：

ActiveSheet.PivotTables("PivotTable5").PivotFields("Customer").PivotFilters. _
Add Type:=xlCaptionEquals, Value1:="R*"

这里使用了通配符 * 来匹配任意字符串。

若要筛选 “Sum of Quantity” 列中值大于