[分享]浅谈DICTIONARY(字典)对象

上清宫主

向狼版致敬！
学习！反复学习！

df888888

想狼行天下老师致敬

ggsmart

一直在找学习字典的贴子
感谢儿狼版主提供！

china047

先下载,回去慢慢看!!!!,狼版辛苦了!!!

vincent1981

Sub yy()
    Dim rng, d As Object, i&, c As Range, x As Date, y!
    Set d = CreateObject("Scripting.Dictionary")
    With Sheet1
        rng = .Range(.[a3], .[d65536].End(3))
    End With
    For i = 1 To UBound(rng)
        If Not d.exists(rng(i, 2)) Then
            d(rng(i, 2)) = Array(rng(i, 1), rng(i, 4))
        Else
            x = Format(IIf(rng(i, 1) > d(rng(i, 2))(0), rng(i, 1), d(rng(i, 2))(0)), "yyyy/m/d")
            y = d(rng(i, 2))(1) + rng(i, 4)
            d(rng(i, 2)) = Array(x, y)
        End If
    Next i
    With Sheet2
        For Each c In .Range(.[a3], .[a65536].End(3))
            c(1, 3).Resize(, 2) = d(c & "")
        Next
    End With
End Sub

泓()

感谢狼版，

liechun1983

总算对字典有点认识了!

mobuli

最喜欢的方法是Exists

泓()

再深造 谢谢

gyzzf

作为资料收藏，谢狼版