数据透视表使用Excel VBA扩展和减去或显示/隐藏详细信息

Question

我正在尝试使用以下命令隐藏数据透视表列的详细信息。 有人可以告诉我这个错误吗？

THX。

     For Each c In Range("A1:A20000")
         With c
             If Left(.Value, 2) = "FA" Then ActiveSheet.PivotTables("PivotTable1").PivotFields("Ref 1").PivotItems( _
        "*").ShowDetail = False
             End With
     Next c

Answer 1

终于找到了愚蠢的错误

Dim c As Range
     For Each c In myfile.Sheets(3).Range("A1:A20000")
         With c
            If Left(c.Value, 2) = "FA" Then ActiveSheet.PivotTables(1).PivotFields("Ref 1").PivotItems(c.Value).ShowDetail = False
        End With
     Next