vba - VBA 复制数据透视表并删除与数据的连接

Question

想知道是否有任何方法可以使用 VBA 将数据透视表复制到另一个工作表，删除与数据源的链接，以便根据该日期生成快照。

干杯，

吉利

标签： vbapivot

Answer 1

是的，给你：

Sub ptValues()

    Dim pt As PivotTable
    Dim data As Variant
    Dim dest As Range

    Set pt = ActiveSheet.PivotTables(1) 'set pivot table
    data = pt.TableRange1 'read data into variant array
    Set dest = Cells(1, 10) 'set destination range left upper corner

    dest.Resize(UBound(data, 1), UBound(data, 2)).Value2 = data 'write data to worksheet


End Sub