Question

要用vba实现，A1：A10=1-10， 在A1：A10中，找出第二大的数字，并返回行号.

Answer 1

Option Explicit
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

Answer 2

Option Explicit
Sub large2()
    Dim arr As Variant, brr As Variant, tmp As Variant
    Dim i As Integer, j As Integer
    arr = Application.Transpose(ActiveSheet.[a1:a10])
    brr = arr
    For i = 1 To UBound(brr) - 1
        For j = i + 1 To UBound(brr)
            If brr(i) < brr(j) Then
                tmp = brr(i)
                brr(i) = brr(j)
                brr(j) = tmp
            End If
        Next j
    Next i
    For i = 1 To UBound(arr)
        If arr(i) = brr(2) Then
            MsgBox i
            Exit Sub
        End If
    Next i
End Sub