­ã´£³¡ªL

Sub AR1017()
Dim Arr, xD, j&, T, V
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([A1], [B65536].End(xlUp))
For j = 1 To UBound(Arr)
¡@¡@T = Arr(j, 1):¡@V = Arr(j, 2)
¡@¡@If xD(T) = "" Then xD(T) = V
¡@¡@If V > xD(T) Then xD(T) = V
Next j
[E1:F1].Resize(xD.Count) = Application.Transpose(Array(xD.keys, xD.items))
End Sub