|
我也来一段,凑个热闹![](https://clubstatic.excelhome.net/image/smiley/default/lol.gif)
Sub ChooseMostInfo()
Set d_xl = CreateObject("scripting.dictionary")
d_xl("专科") = 1
d_xl("本科") = 2
d_xl("研究生") = 3
arr = Range("a2:b12")
Set d = CreateObject("scripting.dictionary")
For i = 1 To UBound(arr)
If Not d.exists(arr(i, 1)) Then
d(arr(i, 1)) = arr(i, 2)
Else
If d_xl(arr(i, 2)) > d_xl(d(arr(i, 1))) Then d(arr(i, 1)) = arr(i, 2)
End If
Next
dkey = d.keys
ditem = d.items
ReDim brr(1 To d.Count, 1 To 2)
For i = 1 To d.Count
brr(i, 1) = dkey(i - 1)
brr(i, 2) = ditem(i - 1)
Next
Cells(2, 4).Resize(d.Count, 2) = brr
End Sub
|
|