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

薛红军

蓝桥玄霜 发表于 2010-10-18 12:48
实例1  普通常见的求不重复值问题
一、问题的提出：
表格中人员有很多是重复的，要求编写一段代码，把重 ...

蓝桥老师，可以给我这个代码释一下吗？？

1. Sub AwTest()
   
2.     Dim i&, j%, arr, d As Object
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     arr = Sheet2.[a1].CurrentRegion
   
5.     For i = 2 To UBound(arr)
   
6.         For j = 1 To UBound(arr, 2) - 2
   
7.             If Len(arr(i, j)) Then d(arr(i, j)) = d(arr(i, j)) + arr(i, UBound(arr, 2) - 1) - arr(i, UBound(arr, 2))
   
8.         Next
   
9.     Next
   
10.     Sheet11.Activate
    
11.     arr = Range("O3:O" & Cells(Rows.Count, "O").End(3).Row + 1)
    
12.     For i = 1 To UBound(arr) - 1
    
13.         If d.exists(arr(i, 1)) Then arr(i + 1, 1) = d(arr(i, 1))
    
14.     Next
    
15.     Range("O3:O" & Cells(Rows.Count, "O").End(3).Row + 1) = arr
    
16. End Sub
    

复制代码

stevenlee0616

谢谢老师！

Feamp

跟贴备学！谢谢！

ATOZYJR

谢谢老师，学习了，我现在还是个小白，对于实例1的d(Arr(i, 3)) = d(Arr(i, 3)) + 1这句还是不懂，为什么改成下面这样就不对了，还请老师指教，谢谢！
Sub cfz()
Dim i&, Myr&
Dim d, k, t
Set d = CreateObject("Scripting.Dictionary")
Myr = Sheet1.[a65536].End(xlUp).Row
For i = 2 To Myr
    d(Cells(i, 3)) = d(Cells(i, 3)) + 1
Next
k = d.keys
t = d.items
Sheet2.Activate
[a2].Resize(d.Count, 1) = Application.Transpose(k)
[b2].Resize(d.Count, 1) = Application.Transpose(t)
[a1].Resize(1, 2) = Array("姓名", "重复个数")
Set d = Nothing
End Sub

legendme95

太好了，很有用。

qclx2018

精华，学习VBA字典了！先留脚印，慢慢看、慢慢学……

pc_12

跟贴备学！谢谢！

yellowhawk

看到蓝老师的教程，真是太好了，为蓝老师点赞！！学习学习

qinyu0745

谢谢，留个记号学习，字典精要

rakehell78

多谢分享，下载学习学习。