[分享]DICTIONARY(字典)对象 补遗（一）

sunsoncheng

还是用这形式做记号好些

zhj1978

难呀

qtqtqt

请问老师，在前面提到的：Sub 保留原数据()
    Dim d As New Dictionary
    For i = 2 To 5
        Set d(Cells(i, 1) & "") = Range(Cells(i, 1), Cells(i, 4))
    Next
    For i = 1 To d.Count
        d(d.Keys(i - 1)).Copy Cells(i + 10, 1)  '出错的地方
    Next
End Sub

当Dim d As New Dictionary替换成Set d = CreateObject("Scripting.Dictionary")，为什么运行程序会出错。。

因为大部分用户都没引用 c:\windows\system32\scrrun.dll ，个人觉得用Set d = CreateObject("Scripting.Dictionary")，更好一些。

还有用For i = 1 To d.Count
        d(d.Keys(i - 1)).Copy Cells(i + 10, 1)  
    Next

循环太慢了。。。。我测过4万条数据。。。。。

个人觉得用 Sheet2.Range("A1").Resize(d.Count, 4) = Application.Transpose(Application.Transpose(d.Items))代替更好,运行速度超快，4万条数据10秒钟跑完。就是代码长了点，希望老师能帮帮忙，优化优化。

ldy

Dim d As New Dictionary 为前期绑定

Set d = CreateObject("Scripting.Dictionary") 为后期绑定

为后期绑定 是在代码运行期间 VBE才取得 Dictionary 一些属性及方法，这么嵌套调用，VBE有些“晕”[em06]

不过这应该是 Dictionary 源代码中的一些问题，咱们改变不了 Dictionary 源代码，改一下自己的代码还是没问题的，变通一下

    arr = d.Keys

    For i = 1 To d.Count
        d(arr(i - 1)).Copy Cells(i + 10, 1)  '借助一个变量来调用就没事了
    Next

 Sheet2.Range("A1").Resize(d.Count, 4) = Application.Transpose(Application.Transpose(d.Items))

这样当然更好，我在其他的贴子里提到过这个技巧。Transpose是EXCEL自带的数组转换函数，效率非常高，

但Transpose只能转化65536以下的数组 ，这个毛病到了2007 也没有改进，

也许2007曾出过补丁解决这个问题，但我一直没使用过2007

[此贴子已经被作者于2008-9-25 23:58:14编辑过]

wangbobo

学习!感谢各位的指教.

coby001

不懂字典啊  希望学学

店老板

zhong_chen

谢谢分享！

tzgwh

好东西呀。又加强学习了。

detergent181

是呀,字典是个好东西,但还不足,能不能我们增加一个或多少条目,
也就是一个KEY,可以对应多少条目.

d.(cells(i,1) &"")
就是我们经常讨论的
是用 cells(i,1),  还是用 cells(i,1).value
像这样的,只有"死记硬背" 用 cells(i,1).value

[ 本帖最后由 detergent181 于 2009-6-2 16:42 编辑 ]