如何使用通配符过滤带有 Excel VBA 的数据透视表

Question

我有一个电子表格，其中包含有关我们潜在客户线索的数据。 我们的一个专栏展示了他们注意到的特征，这些特征用逗号连接在一起。 （例如：Activist、Environmentalist、Avid Traveler 等）电子表格非常大（超过 10 万个条目），因此特征组合的数量也很大。 通常，我使用 pivot 表收集统计信息，然后使用 vba 过滤器和切片器过滤仪表板和主数据表中的每一列数据。 这是我用来过滤列的示例代码：

Dim sArr() As String
Dim sCache As SlicerCache
Dim wb As Workbook
Set wb = ThisWorkbook
Set sCache = wb.SlicerCaches("Slicer_Nationality")
    For Each sItem In ActiveWorkbook.SlicerCaches(sCache.Name).SlicerItems
        If sItem.Selected = True Then
            ReDim Preserve sArr(0 To sCount)
            sArr(sCount) = sItem.Name
            sCount = sCount + 1
        End If
    Next sItem
Sheets("Main Data (Filtering)").Activate
ActiveSheet.Range("$A$1:$AQ$144146").AutoFilter Field:=4, Criteria1:=sArr(), Operator:=xlFilterValues

但是当我尝试使用切片器和 VBA 过滤特征数据时，它会抛出 memory 错误。 我尝试寻找过滤数据透视表而不是切片器的方法，但没有运气。 我最终需要的是能够过滤数据透视表（它将过滤切片器），然后还可以使用给定的关键字过滤主数据集。 输入的关键字需要有通配符。 这样，例如，我以关键字“Activist”为目标，我应该能够获得所有具有“Activist”特征的条目，类似于使用 Excel 的搜索过滤器直接过滤数据透视表的方式。