首页 > Excel专区 > Excel技巧 >

如何使用Excel中的VBA将多个数据透视表字段从默认的函数总和更改为函数计数

Excel技巧 2023-01-08

本文将讲述如何在Excel中批量更改数据透视表所有的汇总字段的格式。如何使用Excel中的VBA将多个数据透视表字段从默认的函数总和更改为函数计数。

  • 手动更改数据透视表字段的汇总方式
  • 通过VBA更改更改数据透视表字段的汇总方式

假设您已经创建了包含数据的数据透视表。默认情况下,数据透视表是用来对所有的数字字段求和操作,如果你想默认的求和方式改为计数。您可以使用值字段设置选项更改每个列的汇总方式,也可以使用VBA宏一次更改所有值字段。

手动更改数据透视表字段的汇总方式


如果要更改多个数据透视表字段,可以在“值字段设置”中更改该功能,只需执行以下步骤:

步骤1:在数据透视表中选择一个字段,然后右键单击它,然后从下拉菜单列表中选择“值字段设置”。 “值字段设置”对话框将打开。

Excel 中如何批量更改数据透视表字段的对总方式1

步骤2:在“值字段汇总方式”框中选择“计数”计算类型,然后单击“确定”按钮。

Excel 中如何批量更改数据透视表字段的对总方式2

步骤3:您会看到求和项字段已经更改为所选计算计算类型。

Excel 中如何批量更改数据透视表字段的对总方式3

步骤4:您需要重复上述步骤来更改数据透视表的其他字段。

通过VBA更改更改数据透视表字段的汇总方式


您还可以使用Excel中的VBA宏将选定数据透视表中的所有字段转换为计数功能或其他功能。只需执行以下步骤即可运行宏:

步骤1:选择要转换字段的数据透视表

步骤2:打开您的Excel工作簿,然后单击开发工具选项卡下的“Visual Basic”命令,或者只需按“ALT + F11”快捷方式。

Excel 中如何只複製內容和格式102

步骤3:然后将出现“Visual Basic编辑器”窗口。

Excel 中如何只複製內容和格式91

步骤4:单击“插入” – >“模块”以创建新模块。

Excel 中如何只複製內容和格式101

步骤5:将以下VBA代码粘贴到代码窗口中。然后单击“保存”按钮。

Excel 中如何批量更改数据透视表字段的对总方式4

  1. Public Sub PivotFieldsToCount()
  2. Dim pf As PivotField
  3. With Selection.PivotTable
  4. .ManualUpdate = True
  5. For Each pf In .DataFields
  6. With pf
  7. .Function = xlCount
  8. .NumberFormat = "#,##0"
  9. End With
  10. Next pf
  11. .ManualUpdate = False
  12. End With
  13. End Sub
Public Sub PivotFieldsToCount()
    Dim pf As PivotField
    With Selection.PivotTable
        .ManualUpdate = True
        For Each pf In .DataFields
            With pf
                .Function = xlCount
                .NumberFormat = "#,##0"
            End With
        Next pf
         .ManualUpdate = False
     End With
 End Sub
 

注意:如果要将所有字段转换为SUM函数,只需在上面的VBA代码中将“x1Count”更改为“x1Sum”即可。

步骤6:返回当前工作表,然后运行上面的excel宏。点击执行按钮。

Excel 中如何批量更改数据透视表字段的对总方式5

步骤7:让我们看看结果:

Excel 中如何批量更改数据透视表字段的对总方式6


Copyright © 2016-2023 office学习教程网 office.tqzw.net.cn. All Rights Reserved.