Sub SumDataFields()
'批量修改数据透视表的计算字段为计数
Dim ptField As PivotField
For Each ptField In ActiveSheet.PivotTables(1).DataFields
With ptField
.Function = xlcount
.Caption = "计数项:" & .SourceName
End With
Next
End Sub
似乎有点困难,这也是本个想解决的。通常情况下张统计项如是文本对象,则是计数,而数字对象则默认为求和。没办法。
对数据透视表我不熟悉,无法帮助你。