VBA宏批量设置

1、启用开发工具
文件 → 选项 → 自定义功能区 → 勾选"开发工具" → 确定。

2、插入VBA代码模块
按Alt+F11打开VBA编辑器 → 右击项目 → 插入模块 → 粘贴以下代码：

Sub BatchSetAverage()
    Dim pt As PivotTable
    Dim pf As PivotField
    Set pt = ActiveSheet.PivotTables(1) '假设操作第一个数据透视表
    For Each pf In pt.DataFields
        pf.Function = xlAverage '批量设置所有值字段为平均值
        pf.Name = "平均 " & pf.SourceName '自动重命名字段
    Next pf
End Sub

最后执行代码：按F5运行宏，所有值字段将自动转为平均值