在尝试取消select之前检查AutoFilter中的元素

我想刷新我的数据透视表，因为它正在查看的范围内的数据确实会改变。 然后，我需要能够从筛选器中取消select任何空白。

我的代码如下，但是，如果没有空白的礼物（以""或(blank) ），那么它会抛出一个错误。 我想我需要它来检查filter中的这些元素的存在，然后再试图隐藏它们…

我如何做到这一点？

  Dim pt As PivotTable: Set pt = ActiveSheet.PivotTables("BarSummary") pt.RefreshTable With ActiveSheet.PivotTables("BarSummary").PivotFields("Shape Codes") .PivotItems("").Visible = False .PivotItems("(blank)").Visible = False End With End If 

Answer 1

这种情况下， On Error Resume Next是最简单的：

 On Error Resume Next .PivotItems("").Visible = False .PivotItems("(blank)").Visible = False On Error Goto 0