求求大家了

5w5ww

根据部门找到工号中最大的一个工号
（其中会出现两个部门共用一个字母代号）公式，vba都可

everbest2015

无图无真相，很遗憾  帮不到您

5w5ww

everbest2015 发表于 2024-8-9 16:18
无图无真相，很遗憾  帮不到您

https://club.excelhome.net/thread-1699124-1-1.html   大神这里

tel3033

供参考……

everbest2015

5w5ww 发表于 2024-8-9 16:20
https://club.excelhome.net/thread-1699124-1-1.html   大神这里

Sub Main()
    Dim sh As Worksheet
    Dim d As Object
    Dim arr, brr
    Dim i As Integer
    Dim hao As Variant
    Dim ma As String
    Dim k As String
    Dim s As String
    Set d = CreateObject("scripting.dictionary")
    Set sh = Sheet1
    With sh
        .AutoFilterMode = False
        arr = .Range("a1").CurrentRegion.Value
        For i = 2 To UBound(arr)
            ma = Left(arr(i, 1), 1)
            k = arr(i, 2) & "," & ma
            hao = Mid(arr(i, 1), 2)
            If Not d.exists(k) Then
                d(k) = Array(ma, hao)
            Else
                brr = d(k)
                If hao > d(k)(1) Then brr(1) = hao: d(k) = brr
            End If
        Next
    End With
    If d.Count = 0 Then Exit Sub
    sh.Range("I:K").ClearContents
    Erase arr
    arr = sh.Range("g4").CurrentRegion.Resize(, 3)
    For i = 1 To UBound(arr)
        s = arr(i, 1) & "," & arr(i, 2)
        If d.exists(s) Then arr(i, 3) = arr(i, 2) & d(s)(1)
    Next
     sh.Range("g4").CurrentRegion.Resize(, 3) = arr
End Sub

ykcbf1100

楼主有点不地道啊，当自己有需求时就求爷爷告奶奶的；但别人真帮你的时候，你就缩在角落不再理人。
做人不能这样的，不说感谢的话、不送花也就罢了，至少也回复一下。