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

还是用这形式做记号好些

请问老师，在前面提到的：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秒钟跑完。就是代码长了点，希望老师能帮帮忙，优化优化。

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