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

使用VBA编程语言可以轻松地获取数组中第n个最大值的索引。无论是在数据分析还是在日常的编程任务中，这个功能都非常有用。本文将介绍如何使用VBA编写代码来实现这个功能，并提供一个简单的案例来帮助读者更好地理解。

vba
Function GetNthLargestIndex(arr As Variant, n As Integer) As Integer
    Dim sortedArr As Variant
    sortedArr = Application.WorksheetFunction.Sort(arr, , , , xlDescending)
    GetNthLargestIndex = Application.WorksheetFunction.Match(sortedArr(n), arr, 0)
End Function

vba
Sub Test()
    Dim scores As Variant
    Dim nthLargestIndex As Integer
    
    ' 假设这是学生的分数数组
    scores = Array(85, 92, 78, 95, 89, 80)
    
    ' 获取第3高分的索引
    nthLargestIndex = GetNthLargestIndex(scores, 3)
    
    ' 输出结果
    MsgBox "第3高分的学生索引为：" & nthLargestIndex
End Sub