字典学习中求助大神门

yes363001640

Function 计数(Rg As Range)
    Dim dic, arr1, ar
    Set dic = CreateObject("Scripting.Dictionary") '后期绑定引用字典对象
    arr1 = Rg '把单元格区域装入到数组arr1里,因为装到数组里速度快一些
    For Each ar In arr1
        If ar <> "" Then ' 排除空单元格
            dic(ar) = "" ' 这句代码怎么理解？不是把空值赋值给字典了吗？双引号中间什么都没有啊？
        End If
    Next ar
    计数 = dic.Count
End Function

    dic(ar) = "" ' 这句代码怎么理解？不是把空值赋值给字典了吗？双引号中间什么都没有啊？理解不了就一直不会用这个。求教。

liulang0808

楼主要统计关键字多少个不重复的，跟赋值是什么没有关系、
看key，不是item部分
dic(ar) = 1或者dic(ar) = ar都是无所谓的

chis3

這只是利用字典特性的靈活用法
有時候你不需要查字典,只需利用它的 exists,在與不在或利用它的count 或只是輸出keys
那麼後面的值就不用理會了,你喜歡 dic(ar) = "abcdef" 也行,反正不用它

lh123lh1234

dic(ar) = ""这句效果一样的写法是：dic.add ar,""
ar作为key，""作为item，key不能重复，楼主的代码目的是用key，跟Item无关，而Item是可以重复的，所以就给item放空值

yes363001640

liulang0808 发表于 2019-11-24 08:44
楼主要统计关键字多少个不重复的，跟赋值是什么没有关系、
看key，不是item部分
dic(ar) = 1或者dic(ar)  ...

哦，明白了。这是版主的字典教学贴里面的，看不懂所以问一下。谢谢解答

yes363001640

liulang0808 发表于 2019-11-24 08:44
楼主要统计关键字多少个不重复的，跟赋值是什么没有关系、
看key，不是item部分
dic(ar) = 1或者dic(ar)  ...

明白了，重要的是关键字。谢谢解惑

yes363001640

lh123lh1234 发表于 2019-11-24 09:37
dic(ar) = ""这句效果一样的写法是：dic.add ar,""
ar作为key，""作为item，key不能重复，楼主的代码目的 ...

他这样的写法是简写吗？你这么说我就明白了。

yes363001640

lh123lh1234 发表于 2019-11-24 09:37
dic(ar) = ""这句效果一样的写法是：dic.add ar,""
ar作为key，""作为item，key不能重复，楼主的代码目的 ...

不用item的时候也必须赋空值吗？

lh123lh1234

yes363001640 发表于 2019-11-24 11:15
不用item的时候也必须赋空值吗？

不是必须赋空值，是因为反正不用item，给它赋值干嘛呢？字典用途很广泛，除了常用的字典作用以外，可以用来作为数组去重，比如你这里的Keys，item有没有值都不重要啊，你给它赋值1，赋值2怎么都行，反正又不用，但是代码的运行考虑到最佳效果，尽可能少的占用内存空间，空值当然最好了

xayxj80

dic(ar) = ""的意思是把非空单元格的数据存入字典关键字，这段代码的本意应该是计算单元格区域的非空单元格数量并返回，单存在问题。如果单元格里的内容相同，字典只会记录一次。结果会出错。