要用vba實現，A1：A10=1-10， 在A1：A10中，找出第二大的數字，並返回行號.

Sub?test()

Dim?x?As?Variant

Dim?t?As?Variant

x?=?Application.WorksheetFunction.Large(ActiveSheet.Range("a1:a10"),?2)

t?=?Application.WorksheetFunction.Match(x,?ActiveSheet.Range("a1:a10"),?0)

MsgBox?t

End?Sub