小编dan*_*lee的帖子

您好，我想将我的数据透视表复制到另一张纸上。但是存在对象不支持此属性或方法的错误

Sub Project1()
Dim Table1 As PivotTable

Set Table1 = Worksheets("Bklg Pivot").PivotTables("PivotTable2")
Table1.Copy Destination:=ThisWorkbook.Sheets("Table2").Range("A1")


End Sub