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

赵文竹 · 发表于 2010-7-4 16:41

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

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

复制代码

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

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

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

zengqiping · 发表于 2010-7-5 08:24

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 · 发表于 2010-7-5 10:20

VBA很神奇也很神秘。

赵文竹 · 发表于 2010-7-5 17:14

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

赵文竹 · 发表于 2010-7-5 18:36

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

赵文竹 · 发表于 2010-7-5 22:40

原帖由 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 是什么意思？

赵文竹 · 发表于 2010-7-6 19:30

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

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

赵文竹 · 发表于 2010-7-7 19:00

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

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

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

dawin · 发表于 2010-7-17 22:27

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

diablo0583 · 发表于 2010-7-30 02:21

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

		自动登录	找回密码
密码			免费注册

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

不太明白，