对于某些类型的数据分析，数据透视表可能非常方便。如果您的工作簿包含多个基于相同数据的数据透视表，则您可能想知道是否有一种方法可以一次全部更新它们，而不是逐个检查并更新它们。

没有Excel命令可以更新所有数据透视表，但是您可以创建一个简短的宏来为您完成工作。下面的宏RefreshAllPivots，逐步浏览工作簿中的每个工作表，检查是否有任何数据透视表，然后更新它们。

Sub RefreshAllPivots()

Dim wks As Worksheet     Dim pt As PivotTable

For Each wks In Worksheets         For Each pt In wks.PivotTables             pt.RefreshTable         Next pt     Next wks End Sub

如果您对多个数据透视表进行了大量工作，则可能需要将宏分配给快捷键或快速访问工具栏，以便可以更轻松地运行它。

注意：

如果您想知道如何使用此页面（或_ExcelTips_网站上的任何其他页面）中描述的宏，我准备了一个特殊页面，其中包含有用的信息。

点击此处在新的浏览器标签中打开该特殊页面。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧（5675）适用于Microsoft Excel 2007、2010和2013。您可以在以下版本的Excel的较旧菜单界面中找到本技巧的版本：

一次更新多个数据透视表。