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

当我们创建数据透视表时，需要手动将字段逐一拖动到“行标签”或“值”区域。如果我们有一长串字段，可以快速添加一些行标签，但其余的字段则需要添加到“值”区域。有没有一种快捷方法可以让我们通过一次点击就将所有其他字段添加到数据透视表的“值”区域呢？

使用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代码适用于活动工作表中的所有数据透视表。

相关文章：

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

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