我创建了一个数据透视表,显示主要城市为“过滤器”(总共80个),某些性能数字为“值总和”。在Excel文件中,我有26张相应于这些城市的国家/地区的表格,并且在每张表格中都有一个包含城市列表的表格(对于某些国家/地区,它可以是1行(1个城市),5行或其他...)< / p>
在每个国家/地区表中,我应该显示该表(已经完成)以及表性能的每一行的图表(同样,它可以是1,5或其他)。
我认为最简单的方法是在每张工作表中粘贴数据透视表,然后自动选择具有城市名称的每一行,并将其应用到数据透视的过滤器。
到目前为止,这是我写的代码:
Sub PastPivot()
Dim sht As Worksheet
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.ChartArea.Copy
For Each sht In Worksheets
sht.Range("a16").PasteSpecial
Next
Application.CutCopyMode = False
End Sub
但我有几个问题:
运行代码
我不确定如何编写代码,以便在每个工作表中执行尽可能多的图表行(以及如何确定图表的位置,因为我不会有相同的数字每张图表上的图表。
也许解决方案是使用其他类型的图形而不是枢轴图形。
关于如何执行它的任何建议?