关于字典exists方法的问题,非常奇怪,求网友帮下!

lyj344600

代码在sheet1里,问题也标出来了.

lyj344600

请各位帮我看看问题出在哪里

mmwwdd

你怎么得出true的，我这运行是false

wanao2008

这位网友，您好！
感谢您对我的视频的认可。

我按F8键，测试了一下代码，正常为False，



如有问题，可跟贴。

lyj344600

mmwwdd 发表于 2024-6-23 04:37
你怎么得出true的，我这运行是false

真的很怪啊,我昨晚确实是true,今天早上打开电脑又正常啊,而且我昨天还改了代码,
Sub cc()
    Dim DicA As Object, i%, j%, k%, arr, brr(1 To 4), krr
    Set DicA = CreateObject("scripting.dictionary")
    k = Range("a1").CurrentRegion.Rows.Count
    For i = 2 To k
    Debug.Print Cells(i, "g"), DicA.exists(Cells(i, "g").Value)'这里也都是true

    If DicA.exists(Cells(i, "g").Value) Then
            brr(1) = DicA(Cells(i, "g").Value)(1) + 1
            brr(2) = Cells(i, 3) + DicA(Cells(i, "g").Value)(2)
            brr(3) = Cells(i, 4) + DicA(Cells(i, "g").Value)(3)
            brr(4) = Cells(i, 5) + DicA(Cells(i, "g").Value)(4)
            DicA(Cells(i, "g").Value) = brr
        Else
            brr(1) = 1
            brr(2) = Cells(i, 3)
            brr(3) = Cells(i, 4)
            brr(4) = Cells(i, 5)
            DicA(Cells(i, "g").Value) = brr
    End If
    Next
    krr = DicA.keys
    For j = 0 To UBound(krr)
        Cells(j + 2, "j").Resize(1, 4) = DicA(krr(j))
    Next
End Sub
今天早上这段代码也正常,好奇怪!

lyj344600

wanao2008 发表于 2024-6-23 04:47
这位网友，您好！
感谢您对我的视频的认可。

谢谢的解答,你的教程我每天学一集,这集遇到的问题,真的有点让我发疯.我本来想借你这个视频复习下字典的用法,特别是字典保存数组,但是确实出现了这个问题,我再来复盘下.

lyj344600

wanao2008 发表于 2024-6-23 04:47
这位网友，您好！
感谢您对我的视频的认可。

又出现了这个问题,真不知道什么原因,我把您的原始数据改了下,根据姓名建立字典,考试结果作为项目数据.

lyj344600

mmwwdd 发表于 2024-6-23 04:37
你怎么得出true的，我这运行是false

我重新改了下数据,又出现了这种问题,希望您能帮我分析下原因

lyj344600

wanao2008 发表于 2024-6-23 04:47
这位网友，您好！
感谢您对我的视频的认可。

lyj344600

wanao2008 发表于 2024-6-23 04:47
这位网友，您好！
感谢您对我的视频的认可。

还是出现这种问题!