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

引子玄

真是学海无涯，字典又来了，ＥＸＣＥＬ知识发散性，很多

diymywork

斑竹太强大了

tcbfy

根据蓝桥玄霜老师程序修改的按三个不同的条件进行数据求和,
Sub 求和()
Dim d As Object, a, b
Dim ss As String, n As Integer, x
Range("A1").Offset(1, 0) = ""
a = Sheet1.Range(Sheet1.[A2], Sheet1.[e65536].End(xlUp))
Set d = CreateObject("scripting.dictionary")
ReDim b(1 To UBound(a), 1 To 5)
For i = 1 To UBound(a)
ss = a(i, 1) & a(i, 2) & a(i, 3)
If Not d.Exists(ss) Then
n = n + 1
d.Add ss, n
b(n, 1) = a(i, 1): b(n, 2) = a(i, 2): b(n, 3) = a(i, 3): b(n, 4) = a(i, 4): b(n, 5) = a(i, 5)
Else
b(d(ss), 4) = b(d(ss), 4) + a(i, 4)
b(d(ss), 5) = b(d(ss), 5) + a(i, 5)
End If
Next
[A2].Resize(n, 5) = b
End Sub

fu123

多谢整理制作。真的是整理是个很费神费力的工作

中国园园

太好了，真是一场及时雨，谢谢！

glb001

{:soso_e127:}  保存了慢慢啃

psh1102

i学学,这是个好东西

tzgwh

这个很强大，一直在用，但都是照猫画虎呀。

rsdhy

谢谢，真是好东西，才学到第7个实例，学起来很吃力，自己基础很差。

9910343

学习学习学习学习