想用VBA实现模糊查找责任人并显示出来，请各位老师帮忙看看。感谢 感谢 ！！

2728911088

想用VBA实现模糊查找责任人并显示出来，请各位老师帮忙看看。感谢 感谢 ！！

2728911088

请各位老师帮忙看看，感谢感谢！！！

jiminyanyan

2728911088 发表于 2018-7-15 20:09
请各位老师帮忙看看，感谢感谢！！！

用字典可以解决。。。。。

2728911088

jiminyanyan 发表于 2018-7-15 21:01
用字典可以解决。。。。。

老师，用字典怎么处理，感谢 ！！！

2728911088

请各位老师抽空帮忙看看，感谢感谢

gdszczh

请看表格“类型汇总 (2)”，点击“提取”。请看是否符合你的要求？

Sub 提取责任人()
Range("c2:c10000").ClearContents
Set d = CreateObject("scripting.dictionary")
For Each Rng In Range("b2:b" & Cells(Rows.Count, 2).End(xlUp).Row)
    Strs = Split(Rng, ",")
    For Each sr In Strs
        For Each rng2 In Sheet3.Range("a2:a" & Sheet3.Cells(Rows.Count, 1).End(xlUp).Row)
        If sr = rng2 Then
            kk = rng2(1, 2)
            d(kk) = ""
        End If
        Next
    Next
    mm = Join(d.keys, ",")
    Rng(1, 2) = mm
    d.RemoveAll
    Next
End Sub

2728911088

gdszczh 发表于 2018-7-15 22:02
请看表格“类型汇总 (2)”，点击“提取”。请看是否符合你的要求？

Sub 提取责任人()

感谢感谢感谢！！！