在excel vba中查找字母数字之间的前2个最大值

Question

需要找到字母数字之间的前 2 个最大值。数据如下所示 "2FB","4CB","0FW","4CW"

这里的输出会是：4CB,4CW。

字母总是一样的。只有数字会改变。上面的数据是一个函数的输出，我将它存储在 4 个字符串变量中。

非常感谢任何帮助。

之前我将输出保存在每个 excel 行中，并使用下面的 vba 代码来检索最大值。但它没有按预期工作，因为我现在需要前 2 个值

Evaluate("IF(MAX(COUNTIF(" & rng.Address & "," & rng.Address & "))>2,INDEX(" & rng.Address & ",MATCH(MAX(COUNTIF(" & rng.Address & "," & rng.Address & ")),COUNTIF(" & rng.Address & "," & rng.Address & "),0)),0)")

Answer 1

如何使用 ArrayList 对象：

Sub Test()

'Initialize your input:
Dim arr(): arr = Array("2FB", "4CB", "0FW", "4CW")

'Create the arraylist object:
With CreateObject("System.Collections.ArrayList")
    
    'Loop over your array to load arraylist:
    For Each el In arr
        .Add el
    Next
    
    'Sort our array ascending and reverse the outcome:
    .Sort
    .Reverse
    
    'Demo lines, we allready got our two largest values:
    Debug.Print .Item(0)
    Debug.Print .Item(1)
    
    'Slice away redundant items and report back in array:
    .RemoveRange 2, .Count - 2
    arr = .ToArray
      
End With

End Sub