求一列特定范围内最大数？

shiruiqiang

想飞的鱼888

shiruiqiang 发表于 2024-3-10 16:01

有密码

shiruiqiang

想飞的鱼888 发表于 2024-3-10 21:43
有密码

Sub test()

Set d = CreateObject("scripting.dictionary")

With Sheet4
    ar = .Range("A25", .Cells(Rows.Count, 1).End(3))
        For i = 1 To UBound(ar)
            s = ar(i, 1)
            If Len(s) > 6 Then
                ss = Left(s, 6)
                If Not d.exists(ss) Then
                d(ss) = s
                Else
                  If Val(Mid(s, 7, Len(s) - 6)) > Val(Mid(d(ss), 7, Len(d(ss)) - 6)) Then
                  d(ss) = s
                  End If
                End If
            End If
        Next
    .[m27] = d(ss)
End With

Set d = Nothing
End Sub