Question

我试图循环遍历pivottable的列以添加条件格式。我无法弄清楚如何选择列的数据。我只能选择列标题。在下面的代码中，我将条件格式化部分留下来以降低复杂性。

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

使用vba循环遍历excel pivot的列

1 个答案: