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