如何将多个字段添加到数据透视表？

在创建数据透视表时，我们需要将字段手动一一拖到“行标签”或“值”中。 如果字段列表很长，我们可以快速添加一些行标签，但其余字段应添加到“值”区域。 一键单击数据透视表，是否可以快速将其他所有字段添加到“值”区域中？

使用VBA代码将多个字段添加到数据透视表的“值”区域中

使用VBA代码将多个字段添加到数据透视表的“值”区域中

不幸的是，没有一个复选框可供我们快速单击以快速检查“数据透视表”字段列表中的所有字段，但是，使用以下VBA代码，它可以帮助您立即将其余字段添加到“值”区域。 请执行以下操作：

1. 创建数据透视表后，首先，应根据需要添加行标签字段，并将值字段保留在 选择要添加到报告中的字段 列表，请参阅屏幕截图：

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

3。 点击 插页 > 模块，然后将以下代码粘贴到 模块窗口.

VBA代码：将多个字段添加到活动工作表中的数据透视表的“值”区域中

Sub AddAllFieldsValues()
'Update 20141112
    Dim pt As PivotTable
    Dim I As Long
    For Each pt In ActiveSheet.PivotTables
        For I = 1 To pt.PivotFields.Count
            With pt.PivotFields(I)
              If .Orientation = 0 Then .Orientation = xlDataField
            End With
        Next
    Next
End Sub

4。 然后按 F5 键以运行此代码，所有剩余字段已同时添加到“值”区域，请参见屏幕截图：

备注：此VBA代码适用于活动工作表的所有数据透视表。

相关文章：

如何列出工作表中的所有数据透视表？

如何检查工作簿中是否存在数据透视表？