Question

我有一些非常简单的代码可以在更新数据源时自动刷新数据透视表：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Sheet2.PivotTables("PivotTable1").PivotCache.Refresh
Sheet3.PivotTables("PivotTable2").PivotCache.Refresh
Sheet4.PivotTables("PivotTable3").PivotCache.Refresh

End Sub

每当它刷新时，我的字段就会取消组合。例如，一个是几个月，另一个是几周，等等，但是当它刷新时，它们都会取消组合并显示每个日期。有什么想法吗？

Answer 1

您可以做的一件事就是录制一个宏，将数据分组为您想要的格式。然后复制在每个数据透视表刷新命令后对选择进行分组的宏部分。所以基本上你每次刷新和重新组合。

显示如何使用VBA对数据透视表数据进行分组的链接是http://www.ozgrid.com/forum/showthread.php?t=55370

我希望这会有所帮助

Excel：自动更新非共享数据透视表而不取消分组字段

1 个答案: