不懂任何VBA代码，也可实现数据透视表自动更新

转载自品略图书馆 http://www.pinlue.com/article/2020/04/2815/5810254760534.html

一般的数据透视表，修改原表数据后，需要手动刷新才可以更新计算，本文通过几步简单的操作，来实现自动计算。

情况一：透视表与原始表格在同一个工作表

普通表格转换成为动态表

点击表格中的任意一个单元格，在插入菜单，点击表格，此表是有标题的，因此将其勾选，确定后，普通表格就转换成为动态表。

插入数据透视表

如果不需要筛选，可以在数据菜单，将其取消。

回到插入菜单，选择数据透视表，透视表的数据源已经自动选定，现在先以现有工作表为例，指定一个单元格，确定后插入一个数据透视表。

插入必要的字段和值，构建完整透视表

勾选需要分析的字段和值，适当调整行列标签的位置，一个透视表就建立好了。

现在的透视表只能手动更新

此时添加一条数据，在透视表上使用右键，点击刷新，数据才会重新计算。

打开开发工具并切换过去

要实现透视表的自动更新，需要进行一点简单的设置。

点击电子表格左上角的：文件，点击选项，选择自定义功能区，在开发工具前打勾，确定后，切换到开发工具。

进行录制宏的操作

点击录制宏，点击确定。鼠标点击透视表内任意一个单元格，切换至分析菜单，点击全部刷新，返回开发工具，停止录制。

点击宏，可以在弹出的对话框内看到刚刚录制好的宏。

复制录制宏自动产生的代码

点击编辑，在弹出的窗口中，将此段代码选择并复制。

选择粘贴宏代码的位置

因为透视表位于工作表sheet1中，所以此处双击左侧的sheet1，在弹出的窗口中选择Worksheet，右侧选择SelectionChange。

SelectionChange的含义

从字面意思来说，SelectionChange就是选择发生改变，当单元格从一个移动到另外一个时，就会触发这个事件。

粘贴刚刚复制的代码

将刚刚复制的代码粘贴到此段代码的中间。

这几步操作的意思是，对于工作表sheet1，当活动单元格发生改变时。就运行这段代码。

如果窗口中有其他多余代码，要将他们删除，然后关闭窗口。

修改数据，验证透视表是否自动更新

增加一条记录，回车后，透视表就会自动计算并更新。修改或删除数据，透视表也会自动计算。

情况二：透视表与原始表格不在同一个工作表

在新工作表内插入数据透视表

鼠标点击原表，插入透视表，如果透视表的位置选择新工作表，操作略有不同，先将新插入的透视进行简单设置。

选择插入代码的位置

还是在开发工具，点击Visual Basic，在弹出的窗口中双击ThisWorkbook，选择Workbook，再选择SheetSelectionChange，字面意思是指选择的工作表发生了改变，当工作表从一个切换到另外一个时，就会触发这个事件。

粘贴代码并返回

将之前录制宏时所产生的代码粘贴到此处，删除其他多余的代码，关闭此窗口返回工作表。

修改原始表格数据，验证透视是否自动更新

此时，对原表进行的任何修改，透视表就可以实现自动更新计算了。

鼠标移回到原表，再多插入一个数据透视表，位置选择新工作表或现有工作表都可以，确定后设置好透视表的字段，对原表进行的任何修改，所有透视表都会自动更新。

数据透视图也会自动更新

数据透视图自动更新

点击数据透视表，在分析菜单内，插入数据透视图，数据更改后，透视图也会实时更改。

重要的收尾步骤

保存时要注意的事项

上述步骤完成后，很重要的一步是保存。

点击文件，选择另存为，点击浏览，选择电脑上一个合适的位置，修改文件名，类型一定要选择Excel 启用宏的工作簿，再点击保存。