Question

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

时出错

Sub Project1()
Dim Table1 As PivotTable

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


End Sub

Answer 1

PivotTable对象没有Copy方法，这就是您的尝试失败的原因。可用的方法列在documentation。

中

您可以使用源PivotTable的{{3}}属性进行复制，因为这会返回具有Range方法的Copy对象。下面是我将PivotTable复制到同一张表中的另一个范围的示例。

TableRange2：返回表示范围的Range对象包含整个数据透视表的报告，包括页面字段。只读。

Sub CopyPivot()

    Dim pvt As PivotTable

    With ThisWorkbook.Worksheets("Sheet1")

        Set pvt = .PivotTables("PivotTable1")

        pvt.TableRange2.Copy .Range("E1") 'copy to another area within same sheet

   End With

End Sub

VBA复制数据透视表

1 个答案: