主题：最大值问题

请教老师，如何从合计列挑选出最大值，并把该行对应的项目名称填入到最后一列

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目15.table

谢谢老师指导，可能是我表达有误，合计最大值项目名称的列，填入的不是当前行最大值的列名，而是合计列中最大值对应行的项目名称，谢谢

 

项目名称     A        B         C        D        合计          合计最大值项目名称

AA             1        2         3        4          10

BB             1        2         3        5          11                    BB

CC             1        2         3        3           9

 

用这段代码可以实现，怎样合并到老师指导的代码中

For Each r As Row In Tables("表A").Rows
Dim Total As String
Total = DataTables("表A").Compute("Max(合计)")
    If r("合计") = Total Then
        r("合计最大值项目名称") = e.DataRow("项目名称")
    Else
        r("合计最大值项目名称") = Nothing
    End If
Next