Excel中：自動更新數據透視表不共享無需取消領域

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

我希望這有助於