按关键字过滤数据透视答案

【问题标题】：Filter pivot by keyword按关键字过滤数据透视
【发布时间】：2016-11-20 22:24:14
【问题描述】：

我希望我的宏通过特定关键字过滤我的数据透视表 - 一个由 3 个字母组成的字符串（“xxx”）。不幸的是，字符串“xxx”可以位于文本中的任何位置，并且不会出现在特定数量的其他字母之后或之前。

我尝试了以下两种解决方案来以这种方式过滤枢轴，但都没有奏效。

对此的任何帮助将不胜感激。

解决方案 1

    With ActiveSheet.PivotTables("PivotTable1").PivotFields("column").ClearAllFilters
        ActiveSheet.PivotTables("PivotTable1").PivotFields("column"). _
        EnableMultiplePageItems = False
        End With
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("column")
    .PivotItems("*xxx*").Visible = True
    End With

解决方案 2

With ActiveSheet.PivotTables("PivotTable1").PivotFields("column").strPattern("*xxx*")

End With

【问题讨论】：

标签： excel vba filter macros pivot

【解决方案1】：

ActiveSheet.PivotTables("PivotTable1").PivotFields("TEST").PivotFilters.Add _ Type:=xlCaptionContains, Value1:="123"

【讨论】：

Excel 声称“添加”和“类型”之间的“_”是无效字符。我在这里做错了什么？
这是一个续行，只需将其删除并使其成为一行或确保它之前有一个空格
这正是我所做的，但我仍然得到那个错误：
.PivotFilters.Add_Type:=xlCaptionContains, Value1:="303"
我还尝试了以下方法，但也没有用：ActiveSheet.PivotTables("PivotTable1").PivotFields("cloumn").PivotFilters.Add _ FilterType:=xlCaptionContains, DataField:="column ", Value1:="123" 还有其他人有什么想法吗？