怎样在EXCEL中实现两个独立数据透视表合并成一个数据透视表?
展开全部
话说,我在工作中,因数据透视多重合并用的不好,没办法,用了你想要的这个办法.不过,你的实际肯定与我的这个不同,所以只供参考,或者你把文件给我,我可以帮你调整.
Alt+F11,把下面代码放进去.什么“披皮组”“装卸组”“透视表2”,”透视表1“这些都要根据你的实际改成相符合的数据名称
Sub 刷新数据透视()
Application.ScreenUpdating = False
Sheets("装卸组").Select '第一个数据透视表据
ActiveSheet.PivotTables("数据透视表2").PivotCache.Refresh '第一个数据透视表
Sheets("披皮组").Select '第二个数据透视表
ActiveSheet.PivotTables("数据透视表1").PivotCache.Refresh '第二个数据透视表
Sheets("汇总").Select
ActiveSheet.PivotTables("数据透视表5").PivotCache.Refresh '汇总的数据透视表
Application.ScreenUpdating = True
MsgBox ("更新完毕!")
End Sub
Alt+F11,把下面代码放进去.什么“披皮组”“装卸组”“透视表2”,”透视表1“这些都要根据你的实际改成相符合的数据名称
Sub 刷新数据透视()
Application.ScreenUpdating = False
Sheets("装卸组").Select '第一个数据透视表据
ActiveSheet.PivotTables("数据透视表2").PivotCache.Refresh '第一个数据透视表
Sheets("披皮组").Select '第二个数据透视表
ActiveSheet.PivotTables("数据透视表1").PivotCache.Refresh '第二个数据透视表
Sheets("汇总").Select
ActiveSheet.PivotTables("数据透视表5").PivotCache.Refresh '汇总的数据透视表
Application.ScreenUpdating = True
MsgBox ("更新完毕!")
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询