2. 插入的数据透视表放在Sheet3工作表中；关于数据透视表的基本操作，可参考以下文章。
3. 数据透视表有一个不足之处是，当源数据中有修改时，数据透视表不会自动刷新，而是要点击按钮进行刷新（“数据”选项卡 > “全部刷新”）。
4. 为了更便于操作，省去每次点击按钮的时间，可以通过VBA在Sheet3中设置一个触发事件，每次点击Sheet3工作表的同时，就执行“全部刷新”的动作。
操作如下：
5. 打开Visual Basic，然后双击项目工程下的Sheet3工作表。5. 在代码框上方的“通用”选项框中选择Worksheet，右侧的选项框选择Activate事件，指的是激活工作表。Private Sub Worksheet_Activate()End Sub
6. 添加“全部刷新”的代码于Activate事件的过程中：当Sheet3激活时，工作簿就全部刷新。
Private Sub Worksheet_Activate()ActiveWorkbook.RefreshAllEnd Sub
7. 回到源数据工作表中，修改一个数据。8. 点击Sheet3工作表时，数据透视表中A1对应的语文成绩也刷新了。以上案例仅用于演示，更多实际应用请根据需求进行调整。已下架