使用macros筛选数据透视表

我在数据透视表上放了一个filter。 我已经编写了一个代码，用于过滤（删除）值小于0的条目。我想要删除具有“0”和空白的数据条目。 下面是我的代码，过滤以“ – ”符号开头的条目。 请build议如何过滤“0”和空白。

Dim i As Integer With ActiveSheet.PivotTables("PivotTable1").PivotFields("Short Quantity") For i = 1 To .PivotItems.Count If Left(.PivotItems(i), Len("-")) = "-" Then .PivotItems(i).Visible = False Else .PivotItems(i).Visible = True End If Next i End With 

Answer 1

所以你只想要正数显示在枢轴？ 如果将“短数量”字段作为“值”字段以及行字段放入数据透视表中，则可以在该字段上放置值filter以抑制零以下的任何内容，这也会消除空白：

之前：

应用VALUESfilter：

后：

Answer 2

尝试：

 Dim i As Integer With ActiveSheet.PivotTables("PivotTable1").PivotFields("Short Quantity") For i = 1 To .PivotItems.Count If Left(.PivotItems(i), Len("-")) = "-" Or _ .PivotItems(i) = "(blank)" Or _ .PivotItems(i) = 0 Then .PivotItems(i).Visible = False Else .PivotItems(i).Visible = True End If Next i End With