引用整个数据透视表的公式？

我有一堆详细的数据集和数据透视表。 在汇总表中，我只想显示数据透视表。 （当然，我宁愿保持DRY，也不要创build一个全新的集合。）我怎样才能引用旧的数据透视表？

如果需要的话，我可以使用VBA来做到这一点。

Answer 1

这个小组将保持数据透视表'活着'。 如果你不需要的话，你可以在它们上面添加PasteValues。

Sub SummarizePivotTables() Dim wb As Workbook, ws As Worksheet, ss As Worksheet, pt As PivotTable Dim pasteRow As Long Const rowsBetween As Long = 1 Set wb = ThisWorkbook Set ss = wb.Worksheets("Summary") pasteRow = 1 'first table row' For Each ws In wb.Worksheets For Each pt In ws.PivotTables 'change this to TableRange1 if you do not want the page field included' With pt.TableRange2 .Copy ss.Range("A" & pasteRow) pasteRow = pasteRow + .Rows.Count + rowsBetween End With Next pt Next ws End Sub