在工作中 经常会用到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
联系客服