透视表批量修改汇总字段

在工作中 经常会用到EXCEL透视表功能 其中经常会修改汇总字段  字段多了 修改起来麻烦   我们来批量修改

---

可能你的一个表格里有多个透视表  首先要指定透视表

---

然后选择汇总方式  这里我写了三个方式  求和 计数  求平均

---

最后把代码贴上去  可自行按需求修改

Sub selectN()

Dim ws As Worksheet

Dim a As Integer

Dim i As Integer

Application.ScreenUpdating = False

Application.DisplayAlerts = False

Set ws = ActiveSheet

i = InputBox('输入透视表序号')

a = InputBox('输入你要选择汇总方式 1 求和 2 计数 3 求平均', '1 求和 2 计数 3 求平均')

If a = 1 Then

For Each pf In ActivSheet.PivotTables('数据透视表' & i).DataFields: pf.Function = xlSum:

Next

End If

If a = 2 Then

For Each pf In ActiveSheet.PivotTables('数据透视表' & i).DataFields: pf.Function = xlCount:

Next

End If

If a = 3 Then

For Each pf In ActiveSheet.PivotTables('数据透视表' & i).DataFields: pf.Function = xlAverage:

Next

End If

Application.ScreenUpdating = True

Application.DisplayAlerts = True

End Sub