时间戳

首页 > 解决方案 > 过滤特定值的数据透视表

excel - 过滤特定值的数据透视表

问题描述

我一直在尝试过滤使用宏创建的数据透视表，我想在创建之前将表过滤为特定帐号，即 12789

这是我一直用于创建数据透视的代码：

Set ws = ActiveSheet
Set wb = ThisWorkbook

Set pc = wb.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=Range("Bank[#All]"), _
Version:=xlPivotTableVersion15)

Set pt = ws.PivotTables.Add(PivotCache:=pc, TableDestination:=Range("AR2"), TableName:="Pivot")


With pt

.PivotFields("narrative_account_number").Orientation = xlRowField
.PivotFields("Debit amount").Orientation = xlDataField

End With

关于如何过滤数据的任何见解？

提前致谢

标签： excelvba

解决方案

With pt.PivotFields("narrative_account_number")
    .Orientation = xlRowField
    For Each item In .PivotItems
        If item <> "12789" Then item.Visible = False
    Next
End With
pt.PivotFields("Debit amount").Orientation = xlDataField

推荐阅读