PowerPivot：如何确定计算列中每组的最大值

如何使用PowerPivot确定计算列中每组的最大值

Sub CalculateMaxValue()
    Dim pvtTable As PivotTable
    Dim pvtField As PivotField
    Dim pvtItem As PivotItem
    
    ' Set the PivotTable
    Set pvtTable = ThisWorkbook.Sheets("Sheet1").PivotTables("PivotTable1")
    
    ' Set the PivotField
    Set pvtField = pvtTable.PivotFields("产品类别")
    
    ' Loop through each PivotItem
    For Each pvtItem In pvtField.PivotItems
        ' Set the data range
        Set dataRange = pvtTable.DataBodyRange.Columns(pvtField.Position + 1)
        
        ' Calculate the max value
        maxValue = Application.WorksheetFunction.Max(dataRange)
        
        ' Print the max value
        Debug.Print "Max value for " & pvtItem.Name & ": " & maxValue
    Next pvtItem
End Sub