如何從Excel數據透視表中選擇數據？

Question

樞軸片

例如，當我單擊數據透視表中的單元格G14時。 它應該在另一張表Sheet1中顯示9 data 。 數據數量取決於數據透視表的column G的單元格。 我似乎找不到任何代碼來獲取該數據。

工作表1

我需要知道如何使用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