如何更改数据透视表中的多个字段设置？

当您在工作表中创建数据透视表时，在将字段拖动到“数据透视表字段列表”中的“值”列表后，您可能会得到如下面的截图所示的所有相同的计数函数。但是现在，您希望用 求和函数立即替换计数函数，那么如何在Excel中一次性更改多个数据透视表字段的计算方式呢？

逐一手动更改数据透视表中的字段设置

使用VBA代码更改数据透视表中的多个字段设置

逐一手动更改数据透视表中的字段设置

在Excel中，您可以通过在“值字段设置”对话框中逐一更改函数来更改字段设置的计算方式，请按以下步骤操作：

1. 选择要在数据透视表中更改汇总函数的“值”区域中的一个字段，右键单击并选择“值字段设置”，请参见截图：

2. 然后在“值字段设置”对话框中，在“按以下方式汇总值”选项卡下选择您要使用的计算类型，请参见截图：

3. 然后点击“确定”关闭此对话框，您可以看见您的计数函数已更改为求和函数，请参见截图：

4. 重复上述步骤逐一更改其他字段的计算设置。

注意：您也可以通过右键单击一个字段单元格并选择“按以下方式汇总值”，然后从上下文菜单中选择所需的计算方式来更改字段设置。

使用VBA代码更改数据透视表中的多个字段设置

如果需要更改大量字段计算，上述方法将非常耗时且繁琐，这里我可以向您介绍一种代码，可以同时更改多个字段设置。

1. 单击数据透视表中的任意单元格。

2. 按住ALT + F11键，打开 Microsoft Visual Basic for Applications窗口。

3. 单击“插入”>“ 模块”，并将以下代码粘贴到模块窗口中。

VBA代码：更改数据透视表中的多个字段设置

Public Sub SetDataFieldsToSum()
'Update 20141127
Dim xPF As PivotField
Dim WorkRng As Range
Set WorkRng = Application.Selection
With WorkRng.PivotTable
   .ManualUpdate = True
   For Each xPF In .DataFields
      With xPF
         .Function = xlSum
         .NumberFormat = "#,##0"
      End With
   Next
   .ManualUpdate = False
End With
End Sub

4. 然后按F5键执行此代码，所选数据透视表中的所有字段设置都将一次性转换为您需要的计算方式，请参见截图：

注意：在上述代码中，您可以将求和函数更改为任何其他计算方式，例如平均值、最大值、最小值等。您只需将这些脚本中的Sum更改为其他函数：Public Sub SetDataFieldsToSum() 和 .Function = xlSum。