Question

我正在使用代码在工作表中生成数据透视表。

在表格中，我的行值很少，属于＆＃34; 0＆＃34;并希望将它们从表中删除。我为此录制了宏并尝试了以下内容下面。

.PivotFields（＆＃34;位置＆＃34）。 _ PivotFilters.Add2类型：= xlValueDoesNotEqual，DataField：= ActiveSheet。 _ PT4。 PivotFields（＆＃34; O＆＃34的总和;），Value1：= 0

我收到错误

Object does not belong to this property or method.

以下是我用来生成数据透视表的代码。

任何领导都会有所帮助

Sub AutoPivot4()
    Dim ws4 As Worksheet
    Dim pc4 As PivotCache
    Dim pt4 As PivotTable
    Dim ct4 As Integer

    Set ws4 = Sheets("PS")
    Set pc4 = ActiveWorkbook.PivotCaches.Create(xlDatabase, "'BWPSW'!R4C13:R1048576C20")
    Set pt4 = pc4.CreatePivotTable(ws4.Range("A3"))
    pt4.AddDataField pt4.PivotFields("O"), "Sum of OVERDUE", xlSum

    With pt4
        With .PivotFields("Location")
            .Orientation = xlRowField
            .Position = 1
            .AutoSort xlDescending, "Sum of O"
            pt4.TableRange2.Offset(0, 1).HorizontalAlignment = xlCenter
                PivotFilters.Add2 Type:=xlValueDoesNotEqual, DataField:=ActiveSheet. _
                pt4.PivotFields("Sum of O"), Value1:=0
        End With
    End With
End Sub

过滤数据透视表中的行值等于0

0 个答案: