枢轴表过滤来自名称范围

Question

我有这个宏可以将枢轴表滤光到仅在命名范围内的产品。

我一直在考虑一种将枢轴表滤光到名称范围除外的所有内容的方法。

想法？

Sub x()
    
Application.ScreenUpdating = False
Application.DisplayAlerts = False
    
    Worksheets("1").Activate
    Dim PI As PivotItem
    With Worksheets("1").PivotTables("A").PivotFields("A")
        .ClearAllFilters
        For Each PI In .PivotItems
            PI.Visible = WorksheetFunction.CountIf(Range("WIP"), PI.Name) > 0
        Next PI
    End With
    
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub