总表录入，分表自动更新！

如何实现在总表录入数据后，对应分表自动更新。

其实这个问题并不困难，只要借助表妹之前分享过的“批量新建工作表”（推送151）的方法，再加上一句“自动刷新”的代码，就可以轻松搞定。心动的你赶快一起来见证奇迹吧~~下面开始讲解。

~~~~~~分表自动更新的分割线~~~~~~

实现效果

-------------------------------------

总表中实时录入数据，对应分表中自动就会进行添加更新，又快捷又准确，老板再也不用担心你的数据呢！下面表妹就把实现方法传授给你，少年快来接招吧~~

实现方法

步骤1

插入表格和数据透视表

【操作】选中数据源数据--插入--表格--确定--插入--数据透视表--现有工作表

-------------------------------------

步骤2

构建数据透视表

【操作】筛选器:商品名称--行区域:日期/货号/售价/进价/销售数量

-------------------------------------

步骤3

创建新表

【操作】分析--选项--显示报表筛选页--确定--调整分表样式

-------------------------------------

步骤4

自动更新

【操作】开发工具--Visual Basic--This book--添加代码--保存（保存为启用宏额工作薄）

代码如下：

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

ActiveWorkbook.RefreshAll

End Sub

------------------------------------