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

570765393 · 发表于 2023-2-3 16:41

附件文件中，总名单当中是所有人，在查询表格当中按照已参加人员查出未参加的人员，但是A2和A3两个单元格一模一样，查询结果有区别，求各位大神帮忙查找原因出在什么地方？

代码如下，但是结果不理想，求指点

Sub T()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
arr = Sheet4.Range("A2:A66")
  '  arr = Application.Transpose(arr1)
brr3 = Sheet5.Range("A2:A6")
brr2 = Application.Transpose(brr3)
brr1 = Application.Transpose(brr2)
brr = Application.Transpose(brr1)
  '  crr = Split(brr(1), "，")
Dim d
  '  arr = [a1].CurrentRegion '已使用的单元格区域为数组ARR
Set d = CreateObject("scripting.dictionary")  '设定D为字典对象

For j = 1 To UBound(brr)
      arr = Sheet4.Range("A2:A66")
      For i = 1 To UBound(arr)
         d(arr(i, 1)) = "" '把数组第一列作为字典的关键字，对应的项目为空白
      Next
      crr = Split(brr(j), "，")
      For k = 0 To UBound(crr)
         If d.exists(crr(k)) Then '如果数组第二列在字典D中存在，那么
            d.Remove (crr(k)) '清除字典中的关键字
         Else '否则
            d(crr(k)) = "" '数组第二列中的关键字不在字典中就添加进去
         End If '假定结束
      Next
      drr = d.keys
      ss = ""
      For m = 0 To UBound(drr)
         ss = ss & drr(m) & "，"
      Next
      Range("c" & j + 1).Value = ss
Next
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

zpy2 · 发表于 2023-2-3 18:43

总名单当中是所有人

总名单里没有敖东

570765393 · 发表于 2023-2-3 20:24

zpy2 发表于 2023-2-3 18:43
总名单当中是所有人

总名单里没有敖东

A列第一个和第二个是一样的，但是查询的结果不一样，不知道代码问题出现在什么地方

570765393 · 发表于 2023-2-3 20:58

zpy2 发表于 2023-2-3 18:43
总名单当中是所有人

总名单里没有敖东

谢谢提醒，找到原因，已解决

蓝桥玄霜 · 发表于 2023-2-3 21:17

字典的例子：

lushang2018 · 发表于 2023-2-3 21:20

Sub 测试() ''答题专用套路--by:学习使我快乐
Dim i, j, k, m, n, arr, brr, crr, drr
Dim sht As Worksheet, wbk As Workbook, rng As Range
Dim dic As Object, key As String, keys, items
Set dic = CreateObject("scripting.dictionary")
arr = Sheet4.Range("A1:A" & Sheet1.Cells(Rows.Count, "A").End(xlUp).Row).Value
For i = 2 To UBound(arr)
key = arr(i, 1)
dic(key) = ""
Next
ReDim crr(1 To 100)
For i = 2 To Sheet5.Cells(Rows.Count, "A").End(xlUp).Row
brr = Split(Cells(i, 1), "，")
k = 0
For j = 0 To UBound(brr)
key = brr(j)
If Not dic.Exists(key) Then
k = k + 1
crr(k) = key
End If
Next
For j = 1 To k
Sheet5.Cells(i, 3) = Mid(Sheet5.Cells(i, 5) & "," & brr(k), 2)
Next
Next
End Sub

复制代码

lushang2018 · 发表于 2023-2-3 21:22

lushang2018 · 发表于 2023-2-3 21:26

蓝桥玄霜发表于 2023-2-3 21:17
字典的例子：

大神的思路清晰，代码简单明了，向您学习！

APPLE123 · 发表于 2023-2-4 10:50

570765393 发表于 2023-2-3 20:58
谢谢提醒，找到原因，已解决

请教楼主，原因何在？如何解决的？谢谢！

准提部林 · 发表于 2023-2-4 15:35

後面加括號的...表示不在總名單中//

Xl0000436.rar (14.78 KB, 下载次数: 15)

		自动登录	找回密码
密码			免费注册

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