求助。次数统计

gbcat70

要求取得的结果:

员工工号（或姓名），从A列最后一列开始统计,在未出现“跨机构轮岗”或“新增”前“机构内”出现次数，直到出现“跨机构轮岗”终止。
2、如：工号8361928,2022/8/15“新增“后,2023/6/20、2024/6/13、2024/9/20出现了二次“机构内”,从后往前统计在出现“新增”前，“机构内”出现次数为3，统计结果就是3
结果如下
0704865   2
8361928   3

gbcat70

1、如：工号0704865,2023/7/23跨机构轮岗后,2024/8/26和 2024/5/16出现了二次“机构内”,从后往前统计在出现“跨机构轮岗”前，“机构内”出现次数为2，统计结果就是2

usedrange

看看这个是不是楼主想要的

gwjkkkkk

Option Explicit
Sub TEST6()
    Dim ar, br, i&, j&, r&, dic As Object, vKey
   
    Application.ScreenUpdating = False
    Set dic = CreateObject("Scripting.Dictionary")
   
    ar = [A1].CurrentRegion.Value
    For i = UBound(ar) To 2 Step -1
        dic(ar(i, 3)) = dic(ar(i, 3)) & " " & ar(i, 1)
    Next i
   
    ReDim ar(dic.Count, 1) As String
    ar(0, 0) = "工号": ar(0, 1) = "机构内"
    For Each vKey In dic.keys
        br = Split(dic(vKey))
        r = r + 1
        ar(r, 0) = vKey
        For i = 1 To UBound(br)
            If br(i) = "跨机构轮岗" Or br(i) = "新增" Then
                ar(r, 1) = i - 1: Exit For
            End If
        Next i
    Next
   
    [J7].Resize(UBound(ar) + 1, 2) = ar
    Set dic = Nothing
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

参与一下。。。

ddz79101

gwjkkkkk 发表于 2024-9-27 21:45
参与一下。。。

老师！帮忙看看改错
https://club.excelhome.net/thread-1702653-1-1.html
(出处: ExcelHome技术论坛)
谢谢

gbcat70

感谢各位朋友的出手相助。万分感谢