常见字典用法集锦及代码详解

sxl820

蓝老师，您好！最近刚接触VBA，听说有个字典，于是找到了您的关于字典的详细介绍。写的非常好，非常详细，可我总也理解不透，总也掌握不好。里面有一个关于Item属性的，是这样描述的“如果在改变一个 key 的时候没有找到该 item，那么将利用所指定的 newitem 创建一个新的 key。”，我的理解是当改变一个item的时候没有找到该key，便用item创建一个key，对吗？

pgj130

mark留名学习，多谢分享指导

whw83

非常感谢您辛勤的付出。

lccchengcheng

必须给一个大大的赞

cmgk

谢谢楼主！

气愤excel

实例9  字典取行数，数组重新赋值 运行出现问题

如果将B列 R(2,3)和R(2,4)值设置为相同，R(6,2)和R(7,2)的值也相同，运行结果未出现错误！

及最终的结果只能合并第2列3行，4行的内容，6，7行内容不能合并？？

气愤excel

实例9  字典取行数，数组重新赋值

如下图所示

气愤excel

Sub yy()
'by:Zamyi
Dim d As New Dictionary, R
Dim k, i, j
R = Sheet1.[a1].CurrentRegion
k = 1

For i = 2 To UBound(R)
    R(i, 2) = Replace(Replace(R(i, 2), "（", "("), "）", ")")
    If d.Exists(R(i, 2)) And d(R(i, 2)) <> "" Then        ‘此处加d(R(i, 2)) <> "" 判断
        
        R(d(R(i, 2)), 1) = R(d(R(i, 2)), 1) & " " & R(i, 1)
        R(d(R(i, 2)), 4) = R(d(R(i, 2)), 4) & " " & R(i, 4)
        R(d(R(i, 2)), 5) = Val(R(d(R(i, 2)), 5)) + R(i, 5)
        R(d(R(i, 2)), 6) = Val(R(d(R(i, 2)), 6)) + R(i, 6)
    Else
        k = k + 1
      d(R(i, 2)) =k                    ’此处原为 d(R(i,2))=i
        For j = 1 To UBound(R, 2)
        
            R(k, j) = R(i, j)
        Next
  End If
Next
With Sheet2
    .Cells.ClearContents
    .Cells.Borders.LineStyle = xlNone
    .[a1:F1].Resize(d.Count + 1) = R
    .[a1:F1].Resize(d.Count + 1).Borders.LineStyle = 1
End With
Set d = Nothing
End Sub

气愤excel

实例9  字典取行数，数组重新赋值

这条代码在实际工作中我相信我被经常用到，所以在阅读前自己在没有看已存在的代码的情况下尝试着去编写，结果始终没有想到一个好的方法，后来参考了作者的代码，茅塞顿开，惊叹于编码作者的思路，代码简洁明了，构思巧妙，像我这样资质一般的人很难有这样的奇思构想，再次给作者的思路点赞！！

按照上面的原有的代码运行时，若只有一处相同项，运行结果正确，如果有多处不同的相同项出现，运行结果出现错误，一直在查找原因，差不多一周时间吧，知道今天算是找到答案了！能够解决今后实际工作中的问题，花时间找错并得到正确结果我觉得是值得的，不过过程确实有点痛苦......

在此多谢 蓝版主的辛勤劳作和无私奉献！

lizhipei78

简直是天书啊