在具有最大值的范围内选择单元格

=CELL(\"address\",INDEX(A2:H2,MATCH(MAX(A2:H2),A2:H2,0)))

Sub max_value_address()
Dim i As Long
i = 2
\'This example assigns to A1 cell the address of max value in the range a2:h2
Range(\"a1\").Formula = \"=CELL(\"\"Address\"\",INDEX(A\" & i & \":H\" & i & \",MATCH(MAX(A\" & i & \":H\" & i & \"),A\" & i & \":H\" & i & \",0)))\"
End Sub

Sub max_value_address()
Dim i As Long
Dim str As String
i = 2
str = \"a\" & i & \":h\" & i \'assign to str a2:h2
Range(\"a1\").Formula = \"=CELL(\"\"address\"\",INDEX(\" & str & \",MATCH(MAX(\" & str & \"),\" & str & \",0)))\"
End Sub

Sub GetHigherValueCellAddress()

    Dim oCell As Excel.Range
    Dim oRange As Excel.Range
    Dim vPrevValue As Variant
    Dim sAddress As String

    Set oRange = Sheets(1).Range(\"A1:C2\")

    For Each oCell In oRange

        If oCell.Value > vPrevValue Then

            sAddress = oCell.Address
            vPrevValue = oCell.Value

        End If

    Next oCell

    MsgBox sAddress

End Sub