使用VBA遍歷Excel Pivot的各列

Question

我試圖遍歷數據透視表的列以添加條件格式。 我不知道如何選擇列的數據。 我只能選擇columnheader。 在下面的代碼中，我省略了條件格式部分以降低復雜性。

Sub Format_Pivot_Columns()
  Set pt = ActiveSheet.PivotTables("piv_scrapedata")
  For Each ptFld In pt.ColumnFields
    ptFld.DataRange.Select
    Selection.Interior.Color = vbYellow
  Next ptFld
End Sub

任何想法？ 謝謝！

Answer 1

我最終得到了下面的代碼，它就像一個魅力。 感謝您的靈感！

Sub Format_Pivot_Columns()
 Set pt = ActiveSheet.PivotTables("piv_scrapedata")
 For Each ptFld In pt.DataBodyRange.Columns
  ptFld.Select
  Selection.Interior.Color = vbYellow
 Next ptFld
End Sub