如何用VBA获取数据透视表值区域中被求和的字段

要提取数据透视表值区域（DataField）的相关信息，可通过以下方法实现：

1. 遍历DataFields集合直接获取信息 #

数据透视表对象自带DataFields集合，包含所有已添加到值区域的字段，遍历该集合可直接获取你需要的三类信息（源字段名、值区域显示名、汇总方式）：

Sub ExtractDataFieldInfo()
    Dim targetPivot As PivotTable
    Dim dataField As PivotField
    
    Set targetPivot = ActiveSheet.PivotTables("PivotTable1")
    
    For Each dataField In targetPivot.DataFields
        ' 源字段名称（对应AddDataField的第一个参数）
        Debug.Print "源字段: " & dataField.SourceName
        ' 值区域显示名称（对应AddDataField的第二个参数）
        Debug.Print "显示名称: " & dataField.Name
        ' 汇总方式（对应AddDataField的第三个参数）
        Debug.Print "汇总方式: " & dataField.Function
        Debug.Print "-------------------------"
    Next dataField
End Sub

在你的示例场景中，这段代码会输出：

• 源字段: Sales
• 显示名称: Sum of Sales
• 汇总方式: xlSum

2. 正确理解DataPivotField的作用 #

DataPivotField是管理值区域的容器字段，并非字段列表。它主要用于设置值区域的整体布局（如是否显示为列/行），具体的字段信息仍需从DataFields集合中提取：

' 查看值区域的整体属性
Debug.Print "值区域布局方向: " & targetPivot.DataPivotField.Orientation
Debug.Print "值区域包含的字段总数: " & targetPivot.DataPivotField.PivotFields.Count

3. 区分值区域源字段与未使用字段 #

值区域的源字段（如示例中的Sales）Orientation属性确实为xlHidden，但它和未使用字段的区别在于：该字段已被关联到DataFields集合中，且拥有对应的汇总规则和显示名称。通过检查字段是否存在于DataFields的关联关系中，即可区分二者。

内容的提问来源于stack exchange，提问作者j2associates