使用宏过滤数据透视表

Question

我在数据透视表上放了一个过滤器。我编写了一个代码，用于过滤（删除）值小于0的条目。我想用＆＃34; 0＆＃34;删除数据条目。还有空白。以下是我的代码，用于过滤以＆＃34; - ＆＃34;开头的条目标志。请建议我如何过滤＆＃34; 0＆＃34;和空白。

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

尝试：

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

Answer 2

所以你只想在数据透视中显示正数？如果将“短数量”字段作为“值”字段和行字段放入枢轴中，则可以在字段上放置“值”过滤器以抑制低于零的任何值，这也会抑制空白：

在：

应用VALUES过滤器：

后：