Vba 筛选数据透视表列

我尝试并查看了这个论坛和其他论坛，但还没有找到正确的工作代码

我想在数据透视表中筛选值等于或大于10%的列。 录制宏时，代码如下：

Sub Macro9()
Macro9 Macro
ActiveSheet.Range("$A$5:$M$36607").AutoFilter Field:=13, Criteria1:=">=0.1" _
    , Operator:=xlAnd

End Sub

这不起作用，但我想在以后启动宏

因此，我尝试了其他代码，如以下代码：

 Sub FilterPivotTable()

 Application.ScreenUpdating = False
 ActiveSheet.PivotTables("PivotTable1").ManualUpdate = True

  ActiveSheet.PivotTables("PivotTable1").PivotFields("Name of my column").ClearAllFilters

  ActiveSheet.PivotTables("PivotTable1").PivotFields("Name of my column").PivotFilters. _
Add Type:=xlCaptionEquals, Value1:=">=0.1"

ActiveSheet.PivotTables("PivotTable1").ManualUpdate = False
Application.ScreenUpdating = True
End Sub

但这也不起作用

有人能帮我吗？ 事先非常感谢

---

编辑：显然，我的字段是经过计算的字段这一事实很重要。但是仍然没有答案。

所以，我找到了我问题的答案

因为我要筛选的列是值和计算字段，所以我实际上需要通过右键单击PVT行值内的单元格来筛选这些列。然后，我必须通过选择正确的值来进行筛选，以排序和添加我的条件。 录制宏时的代码如下所示：

ActiveSheet.PivotTables("PivotTable1").ClearAllFilters
ActiveSheet.PivotTables("PivotTable1").PivotFields("Your row name").PivotFilters. _
Add2 Type:=xlValueIsGreaterThanOrEqualTo, DataField:=ActiveSheet. _
PivotTables("PivotTable1").PivotFields("Your value field"), Value1:=0.1

希望它能帮助你们中的一些人，因为我在很多论坛上都没有看到这个问题的答案

---

祝你今天愉快

您是否用实际的列名替换了

“我的列名”

。这只是为了在互联网上隐藏我专栏的真实名称。