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

Question

我有一堆包含详细数据集和数据透视表的工作表。在摘要表上，我想仅显示数据透视表。 （当然，我宁愿保持干燥，而不是创建一个全新的集合。）我如何引用旧的数据透视表？

如有必要，我可以使用 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

Answer 2

数据透视表在工作簿中称为“Excel 表”。因此，您应该能够在没有 VB 的情况下执行此操作，如我在此答案中所述。

太长；博士；

• 数据->获取外部数据->现有连接
• 转到“表”选项卡，选择您的表
• 插入为“表”