九色国产,午夜在线视频,新黄色网址,九九色综合,天天做夜夜做久久做狠狠,天天躁夜夜躁狠狠躁2021a,久久不卡一区二区三区

在工作中 經(jīng)常會用到EXCEL透視表功能 其中經(jīng)常會修改匯總字段  字段多了 修改起來麻煩   我們來批量修改

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

然后選擇匯總方式  這里我寫了三個方式  求和 計(jì)數(shù)  求平均

最后把代碼貼上去  可自行按需求修改

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 計(jì)數(shù) 3 求平均', '1 求和 2 計(jì)數(shù) 3 求平均')

If a = 1 Then

For Each pf In ActivSheet.PivotTables('數(shù)據(jù)透視表' & i).DataFields: pf.Function = xlSum:

Next

End If

If a = 2 Then

For Each pf In ActiveSheet.PivotTables('數(shù)據(jù)透視表' & i).DataFields: pf.Function = xlCount:

Next

End If

If a = 3 Then

For Each pf In ActiveSheet.PivotTables('數(shù)據(jù)透視表' & i).DataFields: pf.Function = xlAverage:

Next

End If

Application.ScreenUpdating = True

Application.DisplayAlerts = True

End Sub