Excel 2013中批量更改數(shù)據(jù)透視表值字段匯總方式

有時(shí)Excel數(shù)據(jù)透視表中的值字段較多，如果要全部更改其匯總方式，如將下圖數(shù)據(jù)透視表中所有值字段的匯總方式由“求和”改為“平均值”，手動(dòng)逐個(gè)修改費(fèi)時(shí)費(fèi)力。

Excel雖沒(méi)有提供直接的批量更改方法，但在Excel 2013中，用一行VBA代碼可快速實(shí)現(xiàn)批量更改，方法是：

1、選擇數(shù)據(jù)透視表所在的工作表。

2、按Alt+F11，打開(kāi)VBA編輯器。按Ctrl+G打開(kāi)“立即窗口”。

3、在“立即窗口”中粘貼下列代碼：

For Each pf In ActiveSheet.PivotTables("數(shù)據(jù)透視表1").DataFields: pf.Function = xlAverage: Next

將光標(biāo)定位到語(yǔ)句末尾按回車(chē)鍵，即可將數(shù)據(jù)透視表中全部值字段的匯總方式改為“平均值”。

說(shuō)明：

1、“ActiveSheet.PivotTables("數(shù)據(jù)透視表1")”指定的數(shù)據(jù)透視表名稱為“數(shù)據(jù)透視表1”，需根據(jù)實(shí)際進(jìn)行修改。在Excel 2013中，通過(guò)選擇“數(shù)據(jù)透視表工具-分析”選項(xiàng)卡，在功能區(qū)的最左側(cè)可看到數(shù)據(jù)透視表的名稱。

2、“pf.Function = xlAverage”指定值字段匯總方式為“平均值”。如果要按其他方式匯總，可參考下表進(jìn)行修改：

要將值字段的匯總方式批量改為“最大值”，將代碼中“pf.Function = xlAverage”改為“pf.Function = xlMax”。

3、匯總方式更改后，數(shù)據(jù)透視表中的字段名稱會(huì)自動(dòng)更改，如“求和項(xiàng):1月”自動(dòng)改為“平均值項(xiàng):1月”，這在以前的版本中還需用其他語(yǔ)句來(lái)實(shí)現(xiàn)。