Excel/VBA如何按百分比取前三，百分比相等时按自定义排名排序

一、Excel公式实现（适配不同版本） #

1. Excel 365/2021及以上版本（动态数组公式，一键生成结果） #

假设你的数据区域为A1:C7，A列为Value、B列为Percentages、C列为Rank，表头在第1行，数据行在2-7行。直接在空白单元格输入以下公式，会自动溢出生成TOP3的完整结果：

=LET(
    排序后数据,SORTBY(A2:A7,-B2:B7,C2:C7),
    前三项,TAKE(排序后数据,3),
    SEQUENCE(3)&": "&前三项
)

逻辑说明：SORTBY按照「百分比降序、自定义Rank升序」的规则直接对Value列排序，完全规避了重复百分比无法区分的问题，TAKE提取前3项后拼接序号即可。

2. 低版本Excel（无动态数组，逐行生成） #

要生成第1到第3名的结果，在首个结果单元格输入以下公式，下拉填充3行即可：

=ROW(A1)&": "&INDEX($A$2:$A$7,MATCH(SMALL(-$B$2:$B$7*10000+$C$2:$C$7,ROW(A1)),-$B$2:$B$7*10000+$C$2:$C$7,0))

逻辑说明：通过-百分比*10000+Rank把双维度排序规则合并为单个可比较的数值，用SMALL取排序后前N个的位置，最终匹配到对应的Value值，*10000是为了避免百分比小数和Rank列数值冲突。

二、VBA实现（适合批量处理/高频调用场景） #

按Alt+F11打开VBA编辑器，插入模块后粘贴以下代码：

Function GetTopN(rngValue As Range, rngPercent As Range, rngRank As Range, n As Integer) As String
    Dim arr(), i As Integer, j As Integer, temp
    ReDim arr(1 To rngValue.Rows.Count, 1 To 3)
    ' 读取原始数据到数组
    For i = 1 To rngValue.Rows.Count
        arr(i, 1) = rngValue.Cells(i).Value
        arr(i, 2) = rngPercent.Cells(i).Value
        arr(i, 3) = rngRank.Cells(i).Value
    Next
    ' 按规则自定义排序
    For i = 1 To UBound(arr) - 1
        For j = i + 1 To UBound(arr)
            If arr(j, 2) > arr(i, 2) Or (arr(j, 2) = arr(i, 2) And arr(j, 3) < arr(i, 3)) Then
                temp = arr(i): arr(i) = arr(j): arr(j) = temp
            End If
        Next
    Next
    ' 拼接输出结果
    Dim res As String
    For i = 1 To n
        res = res & i & ": " & arr(i, 1) & vbCrLf
    Next
    GetTopN = Left(res, Len(res) - 2)
End Function

回到Excel表格，在空白单元格输入=GetTopN(A2:A7,B2:B7,C2:C7,3)即可直接输出TOP3的结果，最后一个参数可以自定义为你需要的前N名数值。

内容的提问来源于stack exchange，提问作者KMNJB