Question

我可以使用VBA为＆＃34; Pog Group＆＃34;编写代码。和＆＃34;项目＃＆＃34;在行中。然后我想在这个数据透视表中多次计算VBA中每个Pog Group中的Item＃重复次数。我可以总结一下，但我不知道如何计算它们。在下面我展示的图片中，编码可以实现对左侧数据透视表的影响，但我想在右侧实现效果。非常感谢您的帮助！！！

Sub creatpivottable2()

Dim PT As PivotTable
Dim PTCache As PivotCache
Worksheets("SKU & POG DataResource").Select

Set PTCache = ActiveWorkbook.PivotCaches.Create(xlDatabase, Cells(1,  1).CurrentRegion)
Set PT = ActiveSheet.PivotTables.Add(PivotCache:=PTCache,    TableDestination:=Range("E4"))

With PT
.PivotFields("POG Group").Orientation = xlRowField
.PivotFields("Item #").Orientation = xlRowField
.PivotFields("Trait #").Orientation = xlDataField


 End With


End Sub

enter image description here

Answer 1

使用此代码段：

With PT
    .PivotFields("POG Group").Orientation = xlRowField
    .PivotFields("Item #").Orientation = xlRowField
    With .PivotFields("Trait #")
        .Orientation = xlDataField
        .Function = xlCount
    End With
End With

嗨，我想使用VBA来计算数据透视表

1 个答案: