在多个Excel表格中应用各种图表（根据每个表格中的数字行）

我创build了一个数据透视图，显示主要城市为“filter”（共80个），某些绩效数字为“价值总和”。 在一个Excel文件中，我有26个表单，对应于这些城市的国家，在每张表中都有一个表格，里面有一个城市列表（对于一些国家，它可能是1行（1个城市），5行或其他）

在每个国家/地区的表中，我都应该显示表格（已经完成）以及表格的每一行（同样可以是1，5或其他）。

我认为最简单的方法是将数据透视表粘贴到每张表格中，然后自动select每一行的城市名称，并将其应用到数据透视表的filter中。

到目前为止，这是我写的代码：

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 

但我有几个问题：

1. 运行代码时，它会激发“错误5”

2. 我不确定如何编写代码，以便在每张表中执行与行相同数量的图表（以及考虑到每张图表上的图表数量不会相同，如何确定图表的位置）。

也许解决scheme是使用另一种types的graphics，而不是一个枢纽。

有关如何执行它的任何build议？