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

gun44

蓝老师的讲解很透彻。已经收藏！

Cmani

跟帖暂未，XUEXI LE

中原一布衣

弄个简单点的：假定SHEET1只有两列，A列表示收料单的“材料编号”，B列表示“购进数量”，要按材料编号进行数量汇总，则：
Sub hz()
    Dim i&, Myr&, Arr
    Dim d, k, t
    Set d = CreateObject("Scripting.Dictionary")
    Myr = Sheet1.[a65536].End(xlUp).Row
    Arr = Sheet1.Range("a1:b" & Myr)
    For i = 2 To UBound(Arr)  '首行为字段名，从第二行起取数。
            d(Arr(i, 1)) = d(Arr(i, 1)) + Arr(i, 2)     '数量求和就在此，有人在此句之前加上判断句： If Not d.exists(Arr(i, 1)) Then …ELSE…ENDIF，我不知道有多大意义，因为我不加判断，似乎不影响结果，盼有高人指点。
    Next
    k = d.keys
    t = d.items
    With Sheets("sheet2")
        .Range("A2:B" & d.Count).ClearContents
        .Range("A2").Resize(d.Count, 1).Value = Application.Transpose(k)
        .Range("B2").Resize(d.Count, 1).Value = Application.Transpose(t)
    End With
End Sub

[ 本帖最后由 中原一布衣 于 2011-5-31 21:06 编辑 ]

蓝天云朵

已经收藏，以后再学习。

中原一布衣

也就是说，下面添加了IF语句后与楼上的结果是一样的：
Sub hz()
    Dim i&, Myr&, Arr
    Dim d, k, t
    Set d = CreateObject("Scripting.Dictionary")
    Myr = Sheet1.[a65536].End(xlUp).Row
    Arr = Sheet1.Range("a1:b" & Myr)
    For i = 2 To UBound(Arr)
       If Not d.exists(Arr(i, 1)) Then
           d(Arr(i, 1)) = Arr(i, 2)
       Else
            d(Arr(i, 1)) = d(Arr(i, 1)) + Arr(i, 2)
       End If
    Next
    k = d.keys
    t = d.items
    With Sheets("汇总")
        .Range("A2:C" & d.Count).ClearContents
        .Range("A2").Resize(d.Count, 1).Value = Application.Transpose(k)
        .Range("B2").Resize(d.Count, 1).Value = Application.Transpose(t)
        .Activate
    End With

End Sub
我不知道这中间有什么说法没有？
另外，http://club.excelhome.net/thread-725559-1-1.html 也可参考。
对多列求和，可参考：http://club.excelhome.net/redire ... amp;goto=nextoldset
再者，不知道楼主可曾参阅过：http://club.excelhome.net/thread-265056-1-1.html ?

[ 本帖最后由 中原一布衣 于 2011-5-31 22:41 编辑 ]

蓝桥玄霜

两种写法都可以的，只是一种简短些而已。

gywjj

这个贴子一定要好好学习学习......

yuioplkjh

占位置学习，不是为灌水

yuioplkjh

占位置学习，不是为灌水

yuioplkjh

占位置学习，不是为灌水