字典查询结果不一致，求解

zjzyj

APPLE123 发表于 2023-2-4 10:50
请教楼主，原因何在？如何解决的？谢谢！

第一组：因敖东不在总名单里，所以判断敖东时，把敖东加到了字典末尾，所以第一组结束时，敖东就在字典中了。
第二组：因字典中已有敖东，所以判断敖东时，就清除了敖东，所以第二组结束时，敖东就不在字典中了。
第三组：因敖东不在字典中，所以判断敖东时，又把敖东加到了字典末尾，所以第三组结束时，敖东又在字典中了

APPLE123

zjzyj 发表于 2023-2-4 17:26
第一组：因敖东不在总名单里，所以判断敖东时，把敖东加到了字典末尾，所以第一组结束时，敖东就在字典中 ...

谢谢老师的解析！

全党

双字典解决，参与一下

全党

用两个字典解决


Sub 测试()

    Excel.Application.ScreenUpdating = False
    Excel.Application.DisplayAlerts = False
    Dim arr, brr, dic, i, j, k, drr, 字典
        Set dic = CreateObject("Scripting.Dictionary")
        Set 字典 = CreateObject("Scripting.Dictionary")
            Worksheets("培训查询").Range("c2:d6").ClearContents
            arr = Worksheets("名单").Range("a1").CurrentRegion
            brr = Worksheets("培训查询").Range("a2:a6")
            For j = 1 To UBound(brr)
                drr = Split(brr(j, 1), "，")
                   For i = 0 To UBound(drr)
                       Key = drr(i)
                       dic(Key) = ""
                   Next i
                    For i = 2 To UBound(arr)
                       If Not dic.exists(arr(i, 1)) Then 字典(arr(i, 1)) = arr(i, 1)
                    Next i
               Worksheets("培训查询").Range("c" & j + 1) = VBA.Join(字典.Keys, ",")
              k = 字典.Count
              Worksheets("培训查询").Range("d" & j + 1) = k
              dic.RemoveAll
              字典.RemoveAll
            Next j
          Set dic = Nothing
          Set 字典 = Nothing
      Excel.Application.ScreenUpdating = True
      Excel.Application.DisplayAlerts = True
End Sub

cjc209

Sub T()
    Dim d As Object, d1 As Object '声明变量
    Set d名单 = CreateObject("scripting.dictionary")  '设定d为名单字典对象
    Set d培训 = CreateObject("scripting.dictionary") 'd为培训名单字典对象
    arr = Sheet4.Range("A2:A66")
    For j = 1 To UBound(arr)
        d名单(arr(j, 1) & "") = ""
    Next
    最大行 = Sheet5.Range("a" & Rows.Count).End(xlUp).Row
    For i = 2 To 最大行
        brr = Split(Sheet5.Cells(i, 1).Value, "，")
        For j = 0 To UBound(brr)
            d培训(brr(j) & "") = ""
        Next
        jg = ""
        For j = 0 To d名单.Count - 1
            关键字 = d名单.keys()(j)
            If Not d培训.exists(关键字) Then
                jg = jg & "," & 关键字
            End If
        Next
        d培训.RemoveAll
        Sheet5.Cells(i, 3) = Mid(jg, 2)
        k = 0
    Next
End Sub

dcanoe

多逛逛这里，总能学习新东西

570765393

多谢两位大神，学习了

570765393

准提部林 发表于 2023-2-4 15:35
後面加括號的...表示不在總名單中//

谢谢大神