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

EN

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