Question

我正在使用Excel VBA中的以下代码。我将数据透视表复制到L8，并希望将此数据透视表重命名为“PivotTable00”。但是，当它转到此处的第二行时，错误消息“对象不支持此属性或方法”。

有没有办法解决它？非常感谢。

wsPvtTbl.PivotTables("PivotTable1").TableRange2.Copy Destination:=wsPvtTbl.Range("L8")
wsPvtTbl.Range("L8").Activate
ActiveCell.pivotTable.Name = "PivotTable00"

Answer 1

而不是wsPvtTbl.Range("L8").Active使用wsPvtTbl.Range("L8").Activate

Answer 2

您可以使用粘贴的最新Activate获取第一个索引的事实，而不是使用ActiveCell和PivotTable（只会降低代码的运行时间） PivotTables工作表中的wsPvtTbl，请尝试：

wsPvtTbl.PivotTables("PivotTable1").TableRange2.Copy Destination:=wsPvtTbl.Range("L8")
wsPvtTbl.PivotTables(1).Name = "PivotTable00"

VBA复制数据透视表并重命名

2 个答案: