如果需要更改Excel數(shù)據(jù)透視表數(shù)值區(qū)域中字段的值匯總方式,在字段較多的情況下,手動(dòng)逐一更改顯得有些繁瑣。用下面的VBA代碼可快速批量更改全部數(shù)據(jù)字段的值匯總方式。例如要將當(dāng)前工作表中第一個(gè)數(shù)據(jù)透視表的所有數(shù)據(jù)字段值匯總方式改為“求和”,方法如下:
按Alt+F11,打開VBA編輯器,在代碼窗口中粘貼下列代碼:
Sub SumDataFields()
Dim ptField As PivotField
For Each ptField In ActiveSheet.PivotTables(1).DataFields
With ptField
.Function = xlSum
.Caption = "求和項(xiàng):" & .SourceName
End With
Next
End Sub
關(guān)閉VBA編輯器,返回Excel工作表界面,按Alt+F8,打開“宏”對話框,選擇“SumDataFields”宏執(zhí)行即可。