大神帮忙看看，非常感谢！

ykcbf1100

感恩人 发表于 2024-7-12 10:42

你改数据要在B列改的，我那已经是结果了。
你字典都看不懂，还想看懂AI写的代码啊

感恩人

ykcbf1100 发表于 2024-7-12 10:35
是保留最高价啊，你打乱顺序也是这个结果

好哒，非常感谢！  膜拜大神。

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, i&, r&, iPosRow&, dic As Object
   
    ar = [A1].CurrentRegion.Value
    r = 1
    Set dic = CreateObject("Scripting.Dictionary")
    For i = 2 To UBound(ar)
        If Not dic.exists(ar(i, 1)) Then
            r = r + 1
            ar(r, 2) = ar(i, 2)
            dic(ar(i, 1)) = ar(i, 2)
        Else
            iPosRow = dic(ar(i, 1))
            ar(iPosRow, 2) = IIf(ar(i, 2) > dic(ar(i, 1)), ar(i, 2), dic(ar(i, 1)))
        End If
    Next i
   
    [G1].CurrentRegion.Clear
    [G1].Resize(r, UBound(ar, 2)) = ar
    Beep
End Sub

gwjkkkkk

.............