原标题：总表输入透视表跟原数據对不上自动拆分到分表

我有一个总表类似这样的表，现在想要在总表输入透视表跟原数据对不上的时候自动分类到分表中去。有什麼好的办法没有

我的方案是：透视表跟原数据对不上透视表+列表

现在我来阐述一下操作步骤：

Step 01：选择透视表跟原数据对不上源任意单元格，Ctrl+T点击确定，这样列表区域就设置好了

Step 02：选择区域任意单元格，插入---透视表跟原数据对不上透视表----现有工作表---选择位置—确定

Step 03： 将透视表跟原数据对不上透视表修改为自己需要的格式（注意：将分类依据的字段放到报表筛选页以案例为例，将产品名称放到筛选字段）

Step 04 ：修改透视表布局----报表布局---表格形式显示以及重复所有项目标签（2010以上版本）

Setp 05：将透视表跟原数据对不上透视表按照产品名称拆分---分析----選项---显示报表筛选页—确定

Step 06：完成删除总表的透视表跟原数据对不上透视表

这个时候修改透视表跟原数据对不上源总表还是不会修改分表的，需要我们选中透视表跟原数据对不上源之后按下快捷键Ctrl+Alt+F5或者直接点击【刷新】

这样就完成了，但是那位同学又说了还需要点刷噺？

可不可以录入完一个就自动填写过去借助VBA即可。

Step 01：右键透视表跟原数据对不上源工作表标签---查看代码

Step 02：将如下代码复制到代码窗口

這样当我们增加透视表跟原数据对不上源的时候，分表将会自动更新

利用【列表】的自动扩展区域的特性作为透视表跟原数据对不上透视表的动态透视表跟原数据对不上源，将透视表跟原数据对不上透视表拆分之后实际上每个表里仍然是透视表跟原数据对不上透视表，而且透视表跟原数据对不上源一致这样以达到修改透视表跟原数据对不上源自动匹配相应的分表的目的，最后利用VBA的Change事件当单元格內容发生变化的时候，刷新工作簿