如何检查工作簿中是否存在数据透视表？

如果您的工作簿中有多个数据透视表，而现在您想快速知道某个特定的数据透视表是否存在于该工作簿中。通常情况下，您可以进入“数据透视表选项”对话框逐一检查数据透视表的名称，但当有几十甚至上百个数据透视表时，这种方法非常耗时且繁琐。在这里，我可以向您介绍一个技巧来解决这个问题。

使用用户定义函数检查工作簿中是否存在数据透视表

使用用户定义函数检查工作簿中是否存在数据透视表

为了快速了解当前工作簿中是否存在数据透视表，您可以创建一个用户定义函数来解决此问题。

1. 打开您要检查是否包含数据透视表的工作簿。

2. 按住 ALT + F11 键，打开 Microsoft Visual Basic for Applications 窗口。

3. 单击 插入 > 模块，并将以下代码粘贴到模块窗口中。

VBA 代码：检查工作簿中是否存在数据透视表

Function PivotExist(Name As String) As Boolean
'Update 20141112
    Dim sh As Worksheet
    Dim pt As PivotTable
    PivotExist = False
    For Each sh In ActiveWorkbook.Worksheets
        For Each pt In sh.PivotTables
            If pt.Name = Name Then
                PivotExist = True
                Exit For
            End If
        Next
    Next
End Function

4. 然后保存并关闭此代码，返回到您的工作表，在空白单元格中输入公式 =pivotexist("salereport")，请参见截图：

注意：(1.) 在上述公式中，“salereport” 是您要检查的数据透视表的名称。

(2.) 您必须在双引号内输入数据透视表名称，并且名称区分大小写。

5. 输入公式后，按 Enter 键，如果单元格中显示 TRUE，则表示数据透视表存在；如果显示 FALSE，则表示数据透视表不存在。

相关文章：

如何列出工作簿中的所有数据透视表？

如何向数据透视表添加多个字段？