vba - 尝试在数据透视表中的行标签下选择整个范围

Question

我正在尝试选择特定行标签下的所有行，但使用我的代码我只能选择每个行标签下的第一行。任何建议将不胜感激，这是我的代码。

 Sub ttest()
 Dim pt As PivotTable
 Set pt = Sheets("Report").PivotTables("PivotTable1")

 pt.PivotFields("Pillar").PivotItems("CL").DataRange.EntireRow.Select

 End Sub

Answer 1

您可以使用此代码复制行。应该适用于您现有的代码集：

PT.PivotSelect "'CL' Rows[All]", xlDataAndLabel + xlFirstRow, True

通过宏记录器复制。

编辑：您始终可以使用偏移量来编辑当前选择。我的意思是增加或减少选定行的数量。

谢谢，V