简单而强大的宏来刷新工作簿中的所有数据透视表

定期使用数据透视表的人都非常了解此问题。

…即手动刷新工作簿中的数据透视表。

It’如果报表中有一个或两个数据透视表，则完全可以使用手动方法。

…但是如果您有5到10个数据透视表，然后需要定期刷新它们，该怎么办？

嗯..那个’s a boring job.

因此，考虑到这一点，我编写了本教程，以帮助您构建自己的数据透视表刷新宏以使过程自动化。

第1步 

创建一个新的Excel工作簿并另存为“启用宏的工作簿/ Excel Binary工作簿” [文件类型].

第2步

前往“Developer” tab and click on “Visual Basic”

如果你有唐’t have “Developer”工作簿中的标签 [默认情况下将其禁用] 请参考以下教程 enable the 开发者 tab.

第三步

右键单击此工作簿→插入→模块

您很可能会“Module 1” under Modules

步骤4

单击新创建的模块，然后开始编写您的宏代码，如下所示。

Sub Refresh_All_PivotTables()

   Dim WSheet As Worksheet
   Dim PVT As PivotTable

     For Each WSheet 在 ActiveWorkbook.Worksheets
         For Each PVT 在 WSheet.PivotTables
           PVT.RefreshTable
           PVT.Update
        Next
   Next

 End Sub

现在，您已经在宏中需要代码来刷新所有数据透视表，它’是时候学习如何使用此宏了。

步骤5

使用数据透视表打开报表，还打开数据透视表刷新宏。
[如果看到任何警告消息，请继续并单击“Enable this content”]

步骤＃6

在您的报告上，单击→Alt + F8→选择宏名称→单击运行

那’s all… !!!

现在返回到报表中的每个数据透视表并进行检查。一世’确保他们会刷新最新信息。

It’s cool, isn’t it..?

…但是等等，有问题。

该宏将不会扩展数据透视表的数据范围，而只会刷新工作簿中的所有数据透视表。

试想一下，如果将新数据添加/添加到现有数据表中，将会发生什么？

显然，您的数据透视表将没有最新数据。

我能想到的最好的方法是将数据范围转换为表。

这样，您的数据范围将在添加/添加新数据时自动更新。

但…你是怎样做的 ..？

好吧’非常简单，只需单击即可完成。

---

将Excel范围转换为表格的步骤

---

第1步

在数据表中选择整个数据。

第2步

前往Insert menu → Click on Table

或者，您也可以使用Ctl + T 快捷键 对于相同的。

第三步

现在去“Design”选项卡→属性下→更改表名称（默认情况下称为“Table1”), I’d call it as a “my_data”

更改表名称不是强制性的，但是’具有描述性的表名称以进行快速对帐会很好。

步骤4

通常，将新数据粘贴到表下时，数据将自动转换为表。

但是..在少数情况下可能不会…

（我不’不知道确切原因，但有时确实会发生）

如果不…. then you can do it quickly by going to → 设计 → select ‘Resize table’ under ‘properties’ → select range.

这是一个视频指南：

---

结论 

---

如果您有一个或两个数据透视表’可以手动刷新它们。.但是如果您不止于此’最好使用“数据透视表刷新”宏。

相信我，借助此宏，您可以节省很多时间。

从今天开始使用此宏，如果您有任何问题或建议，请告诉我。