Excel数据透视表VBA修改字段值为xlCount.Numbers失败求助

嘿，我一眼就看出问题所在啦——你用了错误的VBA内置常量名称！xlCount.Numbers根本不是合法的标识符，对应的正确常量应该是xlCountNumbers（没有中间的点号，是一个完整的单词组合）。

修正后的完整可运行代码 #

Sub SetPivotFieldsToCountNumbers()
    Dim pt As PivotTable
    Dim pf As PivotField
    Dim ws As Worksheet
    
    Set ws = ActiveSheet
    Set pt = ws.PivotTables(1)
    
    Application.ScreenUpdating = False
    pt.ManualUpdate = True
    
    For Each pf In pt.DataFields
        pf.Function = xlCountNumbers ' 这里替换成正确的常量
    Next pf
    
    pt.ManualUpdate = False
    Application.ScreenUpdating = True
    
    ' 释放对象变量
    Set pf = Nothing
    Set pt = Nothing
    Set ws = Nothing
End Sub

额外小贴士 #

• 以后不确定VBA常量的正确写法时，可以打开VBA编辑器按F2调出对象浏览器，搜索xlConsolidationFunction枚举，就能看到所有透视表支持的函数常量，比如xlCount（统计所有非空单元格，包括文本）、xlCountNumbers（仅统计数值型单元格）、xlSum、xlProduct这些都能找到。
• 如果你的透视表暂时没有数据字段，循环会直接跳过，不会执行任何操作，所以要确保目标透视表确实有数据区域哦。

内容的提问来源于stack exchange，提问作者coolkidlovestokodeeee