Excel VBA:输入key和value两个单元格区域,以value的值比较排序,然后返回key的排序

Posted Limpie

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了Excel VBA:输入key和value两个单元格区域,以value的值比较排序,然后返回key的排序相关的知识,希望对你有一定的参考价值。

代码部分:

Option Explicit
Sub example()
Dim key As Range
Dim value As Range
Dim updown As Integer, rankNum As Integer
Set key = Sheet1.Range("A2:A8")
Set value = Sheet1.Range("B2:B8")
updown = 0
rankNum = 3
MsgBox sortRange(key, value, updown, rankNum)
End Sub

Function sortRange(key As Range, value As Range, updown As Integer, rankNum As Integer)
'函数功能:输入key和value两个单元格区域,以value的值比较排序,然后返回key的排序。
'代码逻辑:用rank()公式函数把value区域的值排名、存值,然后取出排名靠前的多少个key值。
'key:排序后显示的名称区域
'value:用于排序比较的数值区域
'updown:0为降序排,非0为升序排
'rankNum:只要求排名的前多少位
Dim longArr As Integer
Dim i, j As Integer
Dim out As String
If key.Columns.Count = 1 And value.Columns.Count = 1 Then
    If key.Rows.Count = value.Rows.Count Then
        longArr = key.Rows.Count
        ReDim order(1 To longArr) As Integer
        For i = 1 To longArr '排名、存值
             order(i) = Application.WorksheetFunction.Rank(value(i), value, updown) '任何时候不能用省略写法,坑。
        Next i
        For j = 1 To rankNum '取出排名靠前的key值
            For i = 1 To longArr
                If order(i) = j Then
                    If out = "" Then
                        out = key(i)
                    Else
                        out = out & "、" & key(i)
                    End If
                End If
            Next i
        Next j
        sortRange = out
    Else
        MsgBox "错误:两区域长度不等。"
        End
    End If
Else
    MsgBox "错误:其中一区域包含两列及以上。"
    End
End If
End Function

Excel的示例数据:

结果:

以上是关于Excel VBA:输入key和value两个单元格区域,以value的值比较排序,然后返回key的排序的主要内容,如果未能解决你的问题,请参考以下文章

用vba,删除excel文件里某列数据中的[,]和[¥]两个特殊字符

vba excel怎么获取指定工作表的行数、列数

用vba给Excel单元格赋值

vba怎样把一个单元格中的值赋给另一个单元格

如何让 Excel VBA 识别数字单元格?

Excel VBA 424 错误对象需要,在单元格(行,列)。值