VBA скопировать сводную таблицу и удалить соединение с данными

Question

Интересно, есть ли способ скопировать сводную таблицу с помощью VBA на другой лист, удалив ссылку с источником данных, чтобы получить моментальный снимок на эту дату.

Приветствия,

Джилли

Answer 1

Да, вот вы go:

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