请大神们帮帮忙！找一下犯罪团伙！！！

lczzzzzzz

请大神们帮帮忙！找一下犯罪团伙！！！

grf1973

还是挺复杂的。VBA没有集合运算，只能用字典套。

Qs18

Sub test()
    Dim arr, dic As Object, i
    arr = Sheet1.Range("a1").CurrentRegion.Value
    Set dic = CreateObject("scripting.dictionary")
    For i = 2 To UBound(arr)
        s = arr(i, 1) & arr(i, 2)
        If Not dic.exists(s) Then
            dic(s) = arr(i, 15)
        Else
            dic(s) = dic(s) & "、" & arr(i, 15)
        End If
    Next
    ReDim brr(1 To dic.Count, 1 To 2)
    For Each k In dic.keys
        s = Split(dic(k), "、")
        If UBound(s) >= 1 Then
            rw = rw + 1
            brr(rw, 1) = k
            brr(rw, 2) = dic(k)
        End If
    Next
    Range("v2").Resize(rw, 2) = brr
    MsgBox "找出团伙请核对！"
End Sub

Qs18

猜的一个不知道对不对

Qs18

试一下...........

lingshimizi

好像直接数据透视就可以

lczzzzzzz

grf1973 发表于 2024-6-21 17:57
还是挺复杂的。VBA没有集合运算，只能用字典套。

大神，代码放在实际数据中还是不够精准啊！找出的团伙是满足了三人且三案，但不满足其中两人要在三起案件同时存在的条件，即张三和李四即在A案、B案和C案都要出现。您再帮看看吧！

ynzsvt

请测试。双人成团三次成伙。

excel玉米

这个有点意思

ynzsvt

3、4、5是同一个团伙，是不是要与1合并