字典套字典用法集锦

·遁去的一·

好东西要拿出来分享，问题是能不能指导下，看不明白的地方啊

mfx780425

版主，辛苦了，谢谢

hxw0204

谢谢版主整理的字典资料

sunshuangzhong

好东东，又要研究一阵子了。

lizhipei78

其实字典嵌套字典，很简单
反正字典就两样东西，一个是关键词，一个是健值
字典嵌套字典，莫非就是代码帮你创建多个字典罢了
实际上跟你自己创建多个字典的用法是一样的（只不过无法用数组关键词进行创建罢了，脑补就好）
反正你不要把它们当作同一个字典就好了，如d是一个字典，d(Arr(i,1))也是一个字典
d(Arr(i,1)   (i) 这里，前面是一个字典部分，相当于d，后面括号才是它的关键词，其实跟d(i)是一样的
只不过它换了一个名称，难道把d 换成d1 或者dic你就不认识了？
真不明白，你就先不着急，先把第一层字典的关键词输出到Excel中
然后第二层的字典就是以输出的关键词再创建字典，你可以分别再输出这些字典的关键词
这样子你就会明白了

sunshuangzhong

第一题的答案，这个人的方法个人觉得最佳！
Sub mscmsc()
    Dim Arr, d, dd, mh As Integer, hbstr
    Set d = CreateObject("scripting.dictionary")
    Set dd = CreateObject("scripting.dictionary")
    mh = Cells(65536, 1).End(xlUp).Row
    Arr = ActiveSheet.Range("a1:e" & mh)
    For i = 2 To UBound(Arr)
        hbstr = Arr(i, 1) & Arr(i, 3) & Arr(i, 4)
        If d.Exists(Arr(i, 4)) Then
            If dd.Exists(hbstr) Then
                Arr(i, 5) = dd(hbstr)
            Else
                d(Arr(i, 4)) = d(Arr(i, 4)) + 1
                dd(hbstr) = d(Arr(i, 4))
                Arr(i, 5) = dd(hbstr)
            End If
        Else
            Arr(i, 5) = 1
            d(Arr(i, 4)) = Arr(i, 5)
            dd(hbstr) = Arr(i, 5)
        End If
    Next
    Range("e1:e" & mh) = Application.Index(Arr, , 5)
End Sub

micch

前几天还看到有个求助数组和字典嵌套的帖子。论坛数组和字典的用法应该是非常非常多，随便一搜就一堆。版主这个文件收集了好多常规用法，值得自己看看学习

zshyaw

好东西,谢版主提供分享 !!!

佛衫丶黄非红

谢谢 版主                                                                  

沈默00

还没学到字典，先留着，谢谢版主