如下是我目前使用的过滤数据透视表，但它需要很长的时间，我使用这种格式的多个数据透视表。所以，我想知道，如果有人知道如何使这更有效，更快？

Dim FilterArr() As Variant
Dim PTItm As PivotItem

FiterArr = Array("10000000", "100000001") 'Example, my array has more than 80 numbers can't show due to confidentiality

For Each PTItm In irccTable.PivotFields("Cost Center").PivotItems
    If Not IsError(Application.Match(PTItm.Caption, FiterArrIrcc, 0)) Then ' check if current item is        not in the filter array
        PTItm.Visible = True
    Else
        PTItm.Visible = False
   End If
Next PTItm

我什么都没做，不知道该往哪个方向走。