Collection快吗？

m_n_j001

今天学习了一下Collection的使用，看到一位达人在帖子中说大意是数据量大的情况下用Collection至少能快不少。怎么没感觉到呢？如以下三个生成不重复数据的代码：
Sub aaa()    '这个用数组，很快
t = Timer
Dim ar(1 To 65536, 1 To 1), br(1 To 65536)
For i = 1 To 65536
    br(i) = i
Next
Randomize
For i2 = 1 To 65536
   i = i - 1
   r = Int(Rnd * i + 1)
   ar(i, 1) = br(r)
   br(r) = br(i)
Next
[a1] = Timer - t
[b1:b65536] = ar
End Sub
Sub bbb()   '这个用字典，稍慢。如果和集合一样改成remove，则成老态龙钟的蜗牛
t = Timer
    Dim Dic As New Dictionary
    Dim ar(1 To 65536, 1 To 1)
    Dim i As Long
    For i = 1 To 65536
        Dic(i) = i
    Next
    Randomize
    For i2 = LBound(ar) To UBound(ar)
        i = i - 1
        r = Int(Rnd * i + 1)
        ar(i2, 1) = Dic(r)
        Dic(r) = Dic(i)
    Next
[a2] = Timer - t
[c1:c65536] = ar
End Sub
Sub ccc()   '这个用集合，很慢，估计是Remove造成的
t = Timer
Dim s As New Collection, ar(1 To 65536, 1 To 1)
For i = 1 To 65536
    s.Add i
Next
Randomize
For i = 1 To 65536
   r = Int(Rnd * s.Count + 1)
   ar(i, 1) = s(r)
   s.Remove (r)
Next
[a3] = Timer - t
[d1:d65536] = ar
End Sub
这还是在数万个数据情况，要是再多呢？怎么体现“数据量大的情况下用Collection至少能快不少”？是哪里错了？请各位达人指教！或提供一些示例体现Collection的快，谢谢


---------------------------------------------------------------------------------------------------------------------------------------
在众多达人的帮助下，特别是14楼达人的回复，从根源上指明了原理，非常感谢！现在基本可以结贴了。
此贴学习笔记：
集合中，访问内容时用key远胜于index，删除时从前删远胜于从后删。

liucqa

你问那达人呀

另外，把数据限制在5000以内看看速度

m_n_j001

您更是达人中的达人呀{:soso_e179:}
请指导一下嘛{:soso_e183:}

m_n_j001

按您的提示，改成4000，前两个时间都是0，它是0.04多点，还是见不到优势呀？
可以提供一些示例来体现Collection的快吗？

northwolves

各有各的优势

northwolves

我个人理解，字典也是一种集合，

集合的作用更主要的是针对对象的处理，如workbooks，sheets 本质都是集合

m_n_j001

northwolves 发表于 2013-11-20 20:53
我个人理解，字典也是一种集合，

集合的作用更主要的是针对对象的处理，如workbooks，sheets 本质都是集 ...

的确，实际中集合随处可见。
可是狼版，此处的Collection与sheets等集合所指不太一样吧？感觉是有广义与狭义之别吧？
此贴的目的是想学学这狭义上的Collection，因为在论坛中看到有说在百万千万数据时，它非常快，但没看到有具体的实例。试了下却相反，毕竟初学，一定是我自己整错了，所以才开贴求助。
谢谢！

northwolves

前些年写的一些东西，供参考：
http://www.baidu.com/s?wd=%BC%AF%BA%CF+northwolves

m_n_j001

谢谢狼版。
利用add的参数before和after来排序，的确是集合的一个好应用。

香川群子

是来源于这个帖子中
http://club.excelhome.net/thread-1032842-5-1.html

45楼的说法么？
lee1892说：
【太高的没有，用Collection至少能快不少～ 】