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

lsqtzj

经典,谢谢狼主,!

4398259

好贴，受益良多。

355177807

学习了，这类型的东西太少了

autumnalRain

Sub SUMS()
    Dim Dic As Object, Dit As Object
    Dim Arr, k%, Str$

    Set Dic = CreateObject("Scripting.Dictionary")

    Arr = Range("B2", [B65536].End(3)(1, 4))
    For k = 1 To UBound(Arr)
        Str = Arr(k, 1) & Arr(k, 2)
        If Not Dic.exists(Str) Then
            Dic(Str) = k                  /这句是什么意思？Dic(Str)表示什么？是不是什么缩略表示法？
        Else
            Arr(Dic(Str), 3) = Arr(Dic(Str), 3) + Arr(k, 3)
            Arr(Dic(Str), 4) = Arr(Dic(Str), 4) + Arr(k, 4)
            Arr(k, 1) = ""
        End If
    Next
    Dic.RemoveAll

    [B2].Resize(k - 1, 4) = Arr
    [B:B].SpecialCells(4).Delete 3
End Sub

中原一布衣

好东西！值得收藏！不愧为版主！！

mimiboby

学习了。收藏了啊

ZJ325747

好好学习VBA.谢谢分享

qdzhxg

再来拜读，常读常新

fankairong

huiz999 发表于 2007-9-13 22:23
谢谢版主分享。马上试做了一个，基本是安全照搬版主的代码，对代码的理解还是有点模糊。显示1－100里含“3” ...

可简化成
Sub usage1()
    Dim i As Long
    With CreateObject("scripting.dictionary")
        For i = 1 To 100
            If i Like "*" & 3 & "*" Then
                .Add i, ""
            End If
        Next
        MsgBox Join(.keys, Chr(13))
    End With
End Sub

lmylmy224

辛苦了。支持！