excel如何通过vba实现获得某一列最大值所在行的另一列对应的值

答案或建议：

vba中的：

Dim imax%, irow%
imax = Application.WorksheetFunction.Max(Range("A:A"))
Dim wsheet As Excel.Worksheet
Set wsheet = ActiveSheet
Dim c As Range
Set c = wsheet.Range("A:A").Find(imax, LookIn:=xlValues)
If Not c Is Nothing Then
irow = c.Row
End If

MsgBox wsheet.Cells(irow, 5).Value 

文章来源链接：http://www.baikewenda.com/tech/soft/8/7/a202834553.htm