如何在Excel VBA中找到具有最大值的变量名？

Question

Consider a table with Names in 'A' and their Marks in 'B'. I need to find the Name with maximum marks and use this name as a result of another Condition.

In this Sheet, My Maximum value is "SZ04", I need this as the result of Max function and not the value(6) itself.

Answer 1

You can use the INDEX() , MATCH() , and MAX() functions:

=INDEX(A:A,MATCH(MAX(B:B),B:B,0))

So in VBA :

Sub WhatsInaName()
    Dim strng As String

    strng = Evaluate("INDEX(A:A,MATCH(MAX(B:B),B:B,0))")
    MsgBox strng
End Sub

Answer 2

May be something like that

Sub Test()
Dim x

x = Application.Match(Application.Max(Columns(2)), Columns(2), 0)

If Not IsError(x) Then
    MsgBox Cells(x, 1).Value
End If
End Sub