0 
ParentName 指定场外现场总数
ASP ASE 1 1
              东南 2 2 4
              意大利 3 7 10
              评估 **2** 2 4
平均售价总计 8 11 19
ESP ITA 15 15
              总管 2 2
              评估 1 1
ESP 总计 18 18
IS-TP ASE 7 7
              屁股 **19** 19
              瑞典 32 32
              巴 1 3 4
              意大利 24 11 35
IS-TP 总计 83 14 97
总计 109 25 134

在该数据透视表中，可以根据数据透视表对带有星号的单元格值进行求和。如何获取枢轴数据并根据指定对值求和。即，如果指定是 Asst.system 工程师并且父 IOU 名称是“Is-Telecom-parent”和 Assurance Services-1Parent，然后使用 VBA 获取异地总数并在 excel 中将它们相加。

**提供VBA代码

4

1 回答 1

0

试试这个代码：

Sub SumSelectedPivotElements()
    Dim piv As PivotTable
    Dim res As Double

    Set piv = Sheets("YourSheet").PivotTables(1) 'Replace with correct sheetname

    'Replace "Location" with your column field name
    res = piv.GetPivotData("Name of your data field", "ParentName", "IS-TP", "Designation", "AssSE", "Location", "offsite")
    res = res + piv.GetPivotData("Name of your data field", "ParentName", "IS-TP", "Designation", "AssSE", "Location", "offsite")
    Debug.Print "The result is: ", res
End Sub
于 2013-03-12T11:18:18.700 回答