字典有BUG?-求助(急)-问不能检出重复数据的原因?

Johnnyc

代碼如下：


Sub Check_duplicates()
Dim d As Object
Dim rng As Range
Dim str As String
Dim i As Integer
Dim k, j
Set d = CreateObject("scripting.dictionary")
For Each rng In Range("B2:B" & Range("B65536").End(xlUp).Row)
    If Not d.exists(rng.Value) Then
        d.Add rng, 1
    Else                '<---不能正确地进入此"else"部分

        MsgBox rng
        If str = "" Then
            str = rng
        Else
            str = "儲存格" & rng.Address & "出現重覆"
        End If
        i = i + 1
        d(rng) = d(rng) + 1
    End If
Next


If i > 0 Then
    MsgBox str
End If

'MsgBox d.Count  '顯示字典總數
k = d.keys
j = d.items

Range("F1:G1000").ClearContents
Range("F2").Resize(d.Count, 1) = Application.WorksheetFunction.Transpose(k)
Range("G2").Resize(d.Count, 1) = Application.WorksheetFunction.Transpose(j)


MsgBox "結論：字典顯示有" & d.Count & "個不重覆的Key(但實際應只有4個)，不知為什麼字典不能查出重覆並透過msgbox等動作提示"
'结论：B栏，字典显示有5个不重复的Key(但实际应只有4个)，不知为什么字典不能查出重复并透过msgbox等动作提示

Set d = Nothing

End Sub

蓝桥玄霜

rng.Value和rng 不是一回事，前一个是值，后一个是对象。
这就是错误的原因。
应该用d(rng.value)

Johnnyc

蓝桥玄霜 发表于 2023-2-23 18:07
rng.Value和rng 不是一回事，前一个是值，后一个是对象。
这就是错误的原因。
应该用d(rng.value)

版主，你误会了，你说的对，上下的确不一致，但是，我的问题重点在于：在else部份的代码，完全不会进入执行，即是说else下一句的“msgbox”也不能执行，所以根本问题并不在于：“上面用d(rng.value)，下面用d(rng)的原因”。即是假如上下两者都用d(rng.value，或两者都用d(rng.text)，在产生字典时，明明遇到重复的值/相同字样，产生字典时，excel却不能识别出来并进入else的部份。这不知原因为何，请再研究赐教。谢谢

Johnnyc

哦，我明了，你說得對，錯誤部份在於：
If Not d.exists(rng.Value) Then
        d.Add rng, 1   <--這裏

明白了，謝謝教導

Johnnyc

哦，我明了，你說得對，錯誤部份在於：
If Not d.exists(rng.Value) Then
        d.Add rng, 1   <--這裏

明白了，謝謝教導。

Johnnyc

蓝桥玄霜 发表于 2023-2-23 18:07
rng.Value和rng 不是一回事，前一个是值，后一个是对象。
这就是错误的原因。
应该用d(rng.value)

但我還有一個問題，既然d(rng.Value)是值，rng是對像，為什麼用d.add rng , 1 後，再輸在儲存格的結果是一樣呢?到底是" rng.Value "是值?還是" d(rng.Value) "是值呢?

半百

Johnnyc 发表于 2023-2-24 23:53
但我還有一個問題，既然d(rng.Value)是值，rng是對像，為什麼用d.add rng , 1 後，再輸在儲存格的結果是 ...

rng是对象，rng.value是值，d(rng.value)是字典中该关键字(rng.value)对应的项(item)，它可以是值，可以是对象，可以是数组，可以是很多东西。

smiletwo

F8+变量监视 分析下