B15输入下面公式,再同时按Ctrl+Shift+Enter三键完成公式编辑.右拉到H15下拉.
=INDEX($A:$A,SMALL(IF(B$2:B$11=LARGE(B$2:B$11,1),ROW(B$2:B$11),4^8),ROW(A1)))&""
=VLOOKUP(MAX($B$2:$B$9),IF({1,0},B2:B9,A2:A9),2,0)
万能的vba可以实现