如何使用VBA中的showpages为特定值创建枢轴？

Question

我有一个数据透视表。我正在尝试基于原始数据透视表创建新的数据透视表，但是针对特定值进行了过滤。

到目前为止，我发现了这个：

ThisWorkbook.PivotTables("PivotName").ShowPages PageField:="DATE"

这很棒，因为这一行为枢轴中的所有日期创建了数据透视表，并将它们粘贴到新工作表中。

我希望能够为3个特定日期仅创建3张。任何想法？

非常感谢！

Answer 1

您不能将.ShowPages限制为仅显示三个项目。相反，只需将数据透视表三次复制到三张，然后将Date PivotField的.CurrentPage属性设置为您希望为每个页面显示的日期。

有疑问，记录一个宏，执行您想要手动执行的步骤，停止宏录制器，并使用它生成的代码作为起点。