数据透视表－依次改变数据源并拆分成工作簿

danishman

各位前辈，现在我有一份报表，有5个工作表，分别为5个区域的销量数据，以一个区域的销售数据源做了一个数据透视表后，另4个区也要有相同的透视表格式，并在最后把它们分别拆分成5个以区域名称命名的工作表，请问该如何做？（实际情况区域有很多，这是个模拟的情景）

nt_ljm

不太明白你的意思，请上传附件，模拟效果，便于大家探讨。

danishman

请看最终需要的效果。

greatch

把所有区域做成一个透视表。

zhangjimfu

第一步：
数据透视表－选项－选项里的显示报表筛选页
把数据透视表分成多个工作表。

第二步：用VBA代码另存为工作表为单个的工作簿

100米跳远

应用多重合并计算区域，创造不同的地区页字段进行数据透视。对于新生成的数据透视表，如想得到具体的5个以区域名称命名的工作表，可应用“显示报表筛选页”功能完成。

zhangjimfu

Sub savedAs()
       Dim sht As Worksheet
       For Each sht In Worksheets
              
              ThisWorkbook.Sheets(sht.Name).Select
              sht.Copy
              ChDir "C:\Documents and Settings\liujiafa\桌面\新建文件夹"
             ActiveWorkbook.saveAs Filename:="C:\Documents and Settings\liujiafa\桌面\新建文件夹\" & sht.Name & ".xls"
             ActiveWorkbook.Close False
       Next sht
End Sub

另存为工作簿代码

楼主请看附件

danishman

首先谢谢各位高手的帮助和解答。其实一开始我也是把所有数据整合在一个工作表中，然后用数据透视表分页显示功能，最后用彭希仁版主的常用工具拆分成工作簿。可是随着数据量的增大，拆分出的工作簿有近10M的大小，以后随着数据量的增多还会更大，为文件的传送制造了麻烦。其实我的本意是如果数据源只有一个区域的话，那文件相对来说要小很多，用分页显示的话，虽然很方便，但是它的数据源其实是所有区域的，所以会大很多。有什么办法在分页显示后，数据源也变成所选区域的范围，或者有什么其他更好的方法？

danishman

这个帖子不知道沉哪儿了，自己顶一下。