嘗試在數據透視表中的行標籤下選擇整個範圍

我想選擇特定行標籤下的所有行，但使用我的代碼我只能選擇每行標籤下的第一行。任何建議將不勝感激，這是我的代碼。嘗試在數據透視表中的行標籤下選擇整個範圍

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

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

End Sub

enter image description here

來源

2013-07-02 David Van der Vieren

爲什麼要選擇行？你想做什麼？ –

我想選擇行，因爲行中的所有信息都會導出到報表。 –

這是因爲當前格式理解數據不在於PivotItem，而是在於子項。我做了一個詭計。我改變了數據透視表佈局，以表格的形式，通過將設計 - >報表佈局 - 以表格>節目形態然後此代碼工作：昏暗PTABLE作爲數據透視表昏暗pField作爲透視字段昏暗pField2作爲透視字段集PTABLE = ActiveSheet.PivotTables（1）昏暗pItem作爲PivotItem 集pField = pTable.PivotFields（1）集pItem = pField.PivotItems（1） pItem.DataRange.Offset（0，-1 ）.EntireRow.Select – Vikas

您可以使用此代碼複製行。應在您現有的一組代碼上工作：

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

通過宏錄製器複製。

編輯：您始終可以使用偏移來編輯當前選擇。我的意思是增加或減少選定行的數量。

謝謝， V

來源

2013-07-02 18:04:58 Vikas

對我來說，只使用「CL」（行[All]觸發錯誤）。 – LWC

嘗試在數據透視表中的行標籤下選擇整個範圍

回答

相關問題