VBA 创建透视表，录制宏，自动化报表

一. 数据准备

⏹数据源1

⏹数据源2

二. 需求

数据源1和数据源2中的数据每个月都会更新，现在要求创建一个自动化报表，当数据源中的数据变化时，能自动将数据反映，并自动完成统计。

⏹数据处理的效果如下图所示

三. 准备好报表模板

⏹如下图所示，报表的模板的合计区域，先提前预埋好统计公式，为之后的录制宏做准备。

四. 执行统计操作，录制宏

⏹在开发工具选项卡，选择录制宏，指定好宏名称之后，开始录制。
宏开始录制之后，我们对Excel的所有操作都会被记录下来，由Excel自动转换为VBA代码。

4.1 根据数据源创建透视表

⏹数据源1中的数据较为分散，不利于统计汇总。

• 我们可以根据数据源1中的数据创建数据透视表，方便统计。
• 创建数据透视表的过程，如下图所示
• 💥因为是在开启录制宏的状态下创建透视表，因此创建的过程也会被宏记录下来转换为VBA代码。

4.2 填充数据到报表

⏹根据姓名，使用VLOOKUP公式，从数据源1和数据源2中将班级和各个学科的成绩匹配到报表中。

⏹然后，下拉自动填充全部姓名相关的数据，因为数据都是通过公式填充的，最后再复制全部的数据，然后粘贴为值

4.3 结束宏录制

⏹将透视表，数据源1，数据源2sheet页中的数据清空之后，点击停止录制，结束宏的录制
🤔之所以要清空这些数据，是为了自动化考虑。这样下一次使用宏之前，无需手动清空上一次的数据源之后，然后再粘贴新的数据源了。

五. 执行录制好的宏，自动化报表

⏹如下图所示，点击宏，选择执行宏，就可以自动进行批量计算。
这样每次只需要更换数据源，执行一下宏，就可以自动完成计算了。

🧐上图中的计算过程中，页面有闪动效果。如果不想要看到，可以在对应宏的VBA代码中，加上下面这两行代码。

Excel.Application.ScreenUpdating = Fals
' 省略中间代码
Excel.Application.ScreenUpdating = True