我试图从我已创建的数据透视表中过滤数据。而不是硬编码我想要从字段中过滤掉的数据＆＃34; apples＆＃34;和＆＃34; oranges＆＃34;，我想在单独的工作表上为每个字段创建一个表，并以某种方式编写某些东西来从这些表中提取数据。这是因为我需要更新＆＃34;过滤掉＆＃34;几乎每周一次的表格，它会被很多人更新 - 比连续硬编码的东西更容易更新表格。代码如下所示，感谢任何帮助！
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Apples")
.PivotItems("A").Visible = False
.PivotItems("B").Visible = False
.PivotItems("C").Visible = False
End With
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Oranges")
.PivotItems("A").Visible = False
.PivotItems("B").Visible = False
.PivotItems("C").Visible = False
.PivotItems("D").Visible = False
.PivotItems("E").Visible = False
.PivotItems("F").Visible = False
.PivotItems("G").Visible = False
.PivotItems("H").Visible = False
.PivotItems("I").Visible = False
.PivotItems("J").Visible = False
.PivotItems("K").Visible = False
答案 0 :(得分：0)