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

赵文竹

老师，学习过程中一直问题不断，呵呵，因为自己太菜了 ，所以一直麻烦老师，对不起，但还是忍不住跟贴提问了。
为什么在   跨表不重复值提取

1. Sub usage6_2()
   
2. Application.ScreenUpdating = False
   
3.     Dim r As Range, arr
   
4.     Worksheets("sheet12").Select
   
5.     With CreateObject("scripting.dictionary")
   
6.         For Each r In Range("O1:O" & Range("a65536").End(xlUp).Row)
   
7.             If Not .exists(r.Value) Then .Add r.Value, Nothing
   
8.         Next
   
9.         Worksheets("sheet13").Select
   
10.         Cells.Clear
    
11.         Range("a1").Resize(.Count, 1) = WorksheetFunction.Transpose(.keys)
    
12.     End With
    
13.     Application.ScreenUpdating = True
    
14. End Sub

复制代码

代码中，我一直不能达到跨表的操作，而是把原表中的数据清除，复制到a列了呢，也就是仅仅是sheet13选择了一次，但数据并没有复制到sheet13中，还是表12中进行操作的。


此问题已解决，呵呵，是自己的操作有误，因为代码放在了工作表中，而没有放入模块中造成的。

[ 本帖最后由 赵文竹 于 2010-7-5 21:17 编辑 ]

zengqiping

Private Sub CommandButton2_Click() '数据快速查找

Application.ScreenUpdating = False
Dim n  As Long, i As Long, arr, t As Single, txt As Long
t = Timer
n = [a65536].End(xlUp).Row
arr = [a1].Resize(n, 2)
With CreateObject("scripting.dictionary") '建立字典
For i = 1 To n
.Add arr(i, 1), arr(i, 2) '顺序建立字典内容
Next


arr = [d1].Resize(n, 1)

For i = 1 To UBound(arr)
arr(i, 1) = .Item(arr(i, 1)) '在字典中按key取item
Next
End With

[e1].Resize(UBound(arr), 1) = arr
Application.ScreenUpdating = True
MsgBox "查找完成,用时" & Timer - t & "秒!" '速度还可以
End Sub
老师上面的这句代码arr = [d1].Resize(n, 1)，没有太明白意思。如果是要确定数组的容量。那么完全可以ARR(20000,1)或我搞个G列，我拉个20000行,但是这样的话E列到后来就是空白。所以不太明白这句的含义，是不是确定一个KEY范围？最后是请老师能把上面的代码全解释一下。谢谢！！！

cindy-424

VBA很神奇也很神秘。

赵文竹

啃到了应用示例9，感觉好难，都有点坚持不下去想退缩的想法，在这里鼓励一下自己，坚持，加油……

赵文竹

示例10的代码   提示“方法和数据成员未找到”      该如何修改，.AddComment  是什么意思，我把AddComment改为.add也出现同样的提示
版主或路过的高手，请帮忙看看！

赵文竹

原帖由 northwolves 于 2007-9-9 00:13 发表
应用实例11 获取中文的拼音字母Function pinyin(ByVal mystr As String, Optional types As Byte = 0) As StringDim temp   As String, i As Long, j As Long, a, bWith CreateObject("Scripting.Dictiona ...

本示例中定义自定义函数时的参数   Optional types As Byte = 0   是什么意思？

赵文竹

原帖由 zhqang 于 2009-1-27 09:37 发表
455299

我也遇到同样的问题，期待答案！！

赵文竹

原帖由 赵文竹 于 2010-7-6 19:30 发表

我也遇到同样的问题，期待答案！！

呵呵，问题解决把这句改为   .AddComment str_Temp, ""       dic.add str_temp,""     即可。

dawin

谢谢楼主的辛苦整理，学习了。

diablo0583

做记号，好用，谢谢楼主。