Как выбрать данные из сводной таблицы Excel?

Question

Сводная таблица

Например, когда я щелкаю ячейку G14 на сводной странице.На другом листе должно отображаться 9 data, скажем Sheet1.Количество данных зависит от ячеек в column G сводной таблицы.Я не могу найти какой-либо код для получения этих данных.

Sheet1

Мне нужно знать, как я могу получить доступ к этим данным с помощью VBA.

Answer 1

Sub SelectAndCopyPaste()
Dim lastrow() As String
Dim pt As PivotTable


Worksheets("Sheet1").Activate
ActiveSheet.Cells.Clear

With Worksheets("Pivot Sheet")
    .Activate
    Set pt = .PivotTables("PivotTable2")
    lastrow = Split(pt.RowRange.Address, ":")
    .Range(lastrow(1)).Offset(-1, 6).Select 'here is where you set which cell you want to choose
    Selection.ShowDetail = True
    Selection.Copy
End With

    Worksheets("Sheet1").Select
    ActiveSheet.Cells(1, 1).PasteSpecial xlPasteValues

End Sub