數據透視表使用Excel VBA展開和減去或顯示/隱藏詳細信息

Question

我試圖使用以下命令隱藏數據透視表列的詳細信息。 有人可以告訴我這個錯誤嗎？

謝謝。

     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