字典和哈希表的一点小发现

hellikawhi2

大佬,我用你主楼的附件,直接点击对比测试,会显示key是空值

astupig

找到读ht.Keys的方法了。
不过，这样太麻烦了，还不如Contains方法来，写入一个新数组。

xuqing8331

wodewan 发表于 2021-9-17 10:38
写了一大串，还在审核，等等。。。

坐等大神的内容

wodewan

hellikawhi2 发表于 2021-9-17 10:43
大佬,我用你主楼的附件,直接点击对比测试,会显示key是空值

先点生成测试数据按钮，再点对比测试。

hellikawhi2

哈希表不能装空值啊,,比如我arr是ab两列,但是两列的行数不一样,把数组装入哈希表,就会出错啊

wodewan

hellikawhi2 发表于 2021-9-17 11:16
哈希表不能装空值啊,,比如我arr是ab两列,但是两列的行数不一样,把数组装入哈希表,就会出错啊

是的，hashtable是不支持空键和空值的
不过就你帖子的那个问题，AB两列100多万条数据和D列60多万条数据，去重求两个的差集
https://club.excelhome.net/forum ... ;page=3#pid10782267

去空不是主要问题吧，速度才是主要问题，去空在VBA应该很好处理吧，分开取值，用个单元格的END属性，如果列数多加个循环。
在VBA中用哈希表，包括读写单元格8秒多，虽然比之前帖子里我的那个插件慢了点，但也可以接受了吧？
如果是字典你试试，看看要多久。。。

-------------------------------------------------------------------------------------------
Sub Test()
    Dim T, arr, res, i, x
    Dim Ht As IDictionary:      Set Ht = CreateObject("System.Collections.HashTable")
    Dim keys As IEnumerable:    Set keys = Ht.keys

    T = Timer

    '获取单元格数据装入哈希表
    GetHashTable Range("a2:a" & Range("A" & Cells.Rows.Count).End(3).Row).Value, Ht
    GetHashTable Range("b2:b" & Range("B" & Cells.Rows.Count).End(3).Row).Value, Ht
    arr = Range("d2:d" & Range("D" & Cells.Rows.Count).End(3).Row)


    '去除包含再D列的数据
    For Each x In arr
        If Ht.Contains(x) Then Ht.Remove (x)
    Next

    '将数据写入单元格
    ReDim res(1 To Ht.keys.Count, 1 To 1)
    i = 0
    For Each x In keys
        i = i + 1: res(i, 1) = x
    Next
    Range("G1").Resize(Ht.keys.Count, 1) = res
    MsgBox "耗时：" & Timer - T & vbNewLine & "去重求差集后数量：" & Ht.keys.Count
End Sub

Sub GetHashTable(arr, Ht) '将单元格的数据添加到哈希表
    Dim i&
    For i = 1 To UBound(arr)
        Ht(arr(i, 1)) = vbNull
    Next
End Sub

wodewan

hellikawhi2 发表于 2021-9-17 11:16
哈希表不能装空值啊,,比如我arr是ab两列,但是两列的行数不一样,把数组装入哈希表,就会出错啊

这个VBA处理起来很方便，装之前就把空的去掉，然后再装入哈希表。
或者按你的思路就在循环体里加个if（arr(i,j)<>"") then........

正好是哈希表的一个应用（包含了上面说的效率，语法，KEY的取值等等），试了下，你的那个百万数据去重求差集的问题8秒左右，代码在审核。

lsdongjh

字典最大的优势是泛型，在单线程时，读取速度快，在多线程时，效率极差！
而哈希表，在多线程时，非常棒且安全

由于VBA基本是单线程，所以还是考虑字典吧

wodewan

lsdongjh 发表于 2021-9-17 15:22
字典最大的优势是泛型，在单线程时，读取速度快，在多线程时，效率极差！
而哈希表，在多线程时，非常棒且 ...

请教一下，VBA中的字典也是泛型的吗？
泛型使用时，必须特化数据类型，VBA里怎么搞？

qlmgu

wodewan 发表于 2021-9-17 14:04
是的，hashtable是不支持空键和空值的
不过就你帖子的那个问题，AB两列100多万条数据和D列60多万条数据 ...

wodewan老师您好。很想试用您的程序，但是运行时提示用户定义类型未定义的提示: 要如何定义呢？谢谢。