vba - 遍历数据透视表并删除相同的值

Question

我试图遍历工作表中的所有数据透视表并删除其中具有相同名称的所有值字段:“总净支出”和“拆分百分比”(参见图片以供引用)。

我正在尝试下面的代码，但它只适用于第一个枢轴，不会遍历所有枢轴。如何编辑代码，以便删除工作表中所有数据透视表上的“总净支出”和“拆分百分比”列？

Sub Loop_Pivots()

Dim PT As PivotTable, PTField As PivotField

Set PT = Sheets("Sheet1").PivotTables("Pivot1")
With PT
    .ManualUpdate = True
    For Each PTField In .DataFields
        PTField.Orientation = xlHidden
    Next PTField
    .ManualUpdate = False
End With
Set PT = Nothing

End Sub

Answer 1

要遍历 PivotTables 尝试另一个 for each 循环

Sub Loop_Pivots()

    Dim PT As PivotTable, PTField As PivotField
    For Each PT In Sheets("Sheet1").PivotTables
        With PT
            .ManualUpdate = True
            For Each PTField In .DataFields
                PTField.Orientation = xlHidden
            Next PTField
            .ManualUpdate = False
        End With
    Next PT
    Set PT = Nothing
End Sub