从数据透视表中提取数据

我有一个数据透视表设置（见图像得到一个更好的主意）。 我试图从基于国家的数据透视表中提取数据。 您可以看到行国家允许访问行区域，行区域允许访问行产品。 我想在France的限制下复制数据，以获得地区，所有产品和价格总和，并将其移到sheet2。

这里是我的想法，我怎么可以去，但是当前的属性/方法不支持select方法。 我可以怎样去select法国的所有数据？

 Sheets("MY Pivot").PivotTables("MY_Pivot").PivotFields("Country").PivotItems("France" _ ).ShowDetail = True 'Show pivot item Sheets("MY Pivot").PivotTables("MY_Pivot").PivotFields("Country").PivotItems("France" _ ).Select 'Select pivot item to copy Selection.Copy 'Copy the pivot items Sheets("Sheet2").Range("A1").Select 'Select sheet cell for paste Sheets("Sheet2").Paste 'Paste the selected France results 

Answer 1

您可以将.PivotItems("France").DataRange.EntireRow复制到“Sheet2”，而无需使用Select 。

码

 Option Explicit Sub CopyPivotItemDataRange() Dim PvtTbl As PivotTable Dim PvtFld As PivotField ' set the Pivot Table object Set PvtTbl = Sheets("MY Pivot").PivotTables("MY_Pivot") ' set the Pivot Field object Set PvtFld = PvtTbl.PivotFields("Country") With PvtFld .PivotItems("France").ShowDetail = True 'Show pivot item ' copy >> paste the entire Range data under "France" to "Sheet2" .PivotItems("France").DataRange.EntireRow.Copy Destination:=Sheets("Sheet2").Range("A1") End With End Sub