找到excel 2007 Pivot表

Question

有人能告诉我如何找到工作簿(或表)中的所有数据透视表吗？在某些情况下,可能会在非常大的Excel工作表中隐藏或难以找到数据透视表.如果我至少可以获得枢轴表所在的单元格地址或范围,那就太好了.

谢谢.

Answer 1

这应该适合你.它将结果打印到立即窗口:

Sub FindPivotTables()
    Dim wst As Worksheet
    Dim pvt As PivotTable
    ' loop through all sheets and print name & address of all pivot tables
    For Each wst In ActiveWorkbook.Worksheets
        For Each pvt In wst.PivotTables
            Debug.Print wst.Name, pvt.TableRange2.Address, pvt.Name
        Next pvt
    Next wst
End Sub