Question

我想找到数组中第n个最大值的索引。我可以执行以下操作，但当2个值相等时会遇到麻烦。

fltArr(0)=31
fltArr(1)=15
fltArr(2)=31
fltArr(3)=52

For i = 0 To UBound(fltArr)
    If fltArr(i) = Application.WorksheetFunction.Large(fltArr, n) Then
        result = i
    End If
Next

n = 1 ---＆gt; 3
    n = 2 ---＆gt; 2（但我希望这是0）
    n = 3 ---＆gt; 2
    n = 4 ---＆gt; 1

Answer 1

使用第二个数组快速获得您想要的内容，而无需为n的每个值循环遍历每个元素

Sub test()

Dim fltArr(0 To 3)
Dim X
Dim n As Long
Dim lngPos As Long

fltArr(0) = 31
fltArr(1) = 15
fltArr(2) = 31
fltArr(3) = 52

X = fltArr

For n = 1 To 4
    lngPos = Application.WorksheetFunction.Match(Application.Large(X, n), X, 0) - 1
    Debug.Print lngPos
    X(lngPos) = Application.Max(X)
Next

End Sub

Answer 2

编辑：

Public Sub RunLarge()
Dim n%, i%, result%, count%
Dim fltArr(3) As Integer
Dim iLarge As Integer

fltArr(0) = 31:
fltArr(1) = 15:
fltArr(2) = 31:
fltArr(3) = 52
n = 1

Debug.Print " n", "iLarge", "result"

While n <= 4
    count% = n - 1
    iLarge = Application.WorksheetFunction.Large(fltArr, n)

    For i = 0 To UBound(fltArr)
        If fltArr(i) = iLarge Then
            result = i
            count% = count% - 1
            If count% <= 0 Then Exit For
        End If
    Next

    Debug.Print n, iLarge, result
    n = n + 1
Wend
End Sub

结果：

 n            iLarge        result
 1             52            3 
 2             31            0 
 3             31            2 
 4             15            1

Answer 3

有点＆＃34;脏＆＃34;但是看到你在Excel中......

' Create a sheet with codename wsTemp...

For i = 0 To UBound(fltArr)
    wsTemp.cells(i,1) = i
    wsTemp.cells(i,2) = fltArr(i)
Next

with wsTemp
    .range(.cells(1,1),.cells(i,2)).sort(wsTemp.cells(1,2),xlDescending)
end with

Result = wsTemp.cells(n,1)

然后你也可以将排序扩展为＆＃34;按值排序，然后按索引排序＆＃34;如果你想控制＆＃34;我应该选择两个相等的2中的哪一个＆＃34;事...

Answer 4

也许这就是：

Public Sub RunLarge()
Dim fltArr() As Variant, X As Long
fltArr = Array(31, 15, 31, 52) 'Create the array
For X = 1 To 4 'Loop the number of large values you want to index
    For i = LBound(fltArr) To UBound(fltArr) 'Loop the array
        If fltArr(i) = Application.WorksheetFunction.Large(fltArr, 1) Then 'Find first instance of largest value
            result = i
            fltArr(i) = -9999 'Change the value in the array to -9999
            Exit For
        End If
    Next
    Debug.Print result
Next
End Sub

当它找到大数字的第一个实例时，它用-9999替换它，所以在下一次扫描时它将选择它的下一个实例。

Answer 5

这是用于查找集合中第n个最大项目的代码。您需要做的就是编写一个返回索引的函数。

Sub testColl()
    Dim tempColl As Collection
    Set tempColl = New Collection
    tempColl.Add 57
    tempColl.Add 10
    tempColl.Add 15
    tempColl.Add 100
    tempColl.Add 8


    Debug.Print largestNumber(tempColl, 2)  'prints 57
End Sub

和功能本身，我最容易想到的。

Function largestNumber(inputColl As Collection, indexMax As Long)
        Dim element As Variant
        Dim result As Double
        result = 0

        Dim i As Long
        Dim previousMax As Double

        For i = 1 To indexMax
            For Each element In inputColl
                If i > 1 And element > result And element < previousMax Then
                    result = element
                ElseIf i = 1 And element > result Then
                    result = element
                End If
            Next

            previousMax = result
            result = 0
        Next

        largestNumber = previousMax
End Function

VBA - 获取数组中第n个最大值的索引

5 个答案: