使用vba循环访问excel的数据

我想循环通过一个数据透视表的列添加条件格式。 我不知道如何select一列的数据。 我只能够select列标题。 在下面的代码中，我将条件格式部分留下来以减less复杂性。

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