collection代替数组与redim preserve的效率比较

月关

下午终于有了点空闲时间，来论坛里溜达了一圈没啥新鲜好玩的，便争分夺秒系统的学习了一下collection对象。方法属性太少，学起来很简单。
刚学习完还兴高采烈了一番，以后终于不用redim preserve数组了，——感觉上，包括论坛里前辈们的说法，这样效率很低。
装入collection对象数组，然后直接定义一个完美尺寸的数组将collection的item倒进去直接糊单元格里效率应该要快一些。——我是这样想的，结果一试验，大失所望。效率低到简直不能忍。

没有丁点儿有含量的东西，只是我试验了而可能很多老师一直在用没有验证过而已，所以发上来。
若试验方法错误，还请老师们指正。

Option Explicit
Option Base 1

Sub test()
Dim col As New Collection
Dim i&
Dim brr()
Dim t As Single
t = Timer
For i = 1 To 30000
    col.Add Fix(Rnd * i)
Next
ReDim brr(col.Count, 1)
For i = 1 To UBound(brr)
    brr(i, 1) = col(i)
Next
[a1].Resize(UBound(brr)) = brr
MsgBox Format(Timer - t, "0.0000")
Set col = Nothing
End Sub


Sub test2()
Dim brr()
Dim i&, n&
Dim t As Single
t = Timer
For i = 1 To 30000
    n = n + 1
    ReDim Preserve brr(1, n)
    brr(1, n) = Fix(Rnd * i)
Next
[b1].Resize(n) = Application.Transpose(brr)
MsgBox Format(Timer - t, "0.0000")
End Sub





方法一用时3.2秒多，方法二用时不到0.6秒

凌空一羽

确实方法2速度快好多……

zpy2

https://www.cnblogs.com/gyc19920704/p/5420230.html
你的一个是2次循环，后者是1次，不具有可比性的。
另外，collection的for each会快点。
collection保存的是对象，可以看看上面的链接。

月关

按说在循环当中使用 redim preserve 会很拖累速度，尤其最后又用了 transpose 应该更慢，结果让人比较意外。不知道是不是因为纯数值的缘故。
怪不得老师们一直推崇数组+字典，原来都是实践出来的经验

月关

zpy2 发表于 2019-12-6 19:03
https://www.cnblogs.com/gyc19920704/p/5420230.html
你的一个是2次循环，后者是1次，不具有可比性的。
...

谢谢老师。
两次循环也是没有办法的事，他不支持一次性输出。
但开始我以为即使这样也会比 Redim preserve 快的，因为毕竟循环的效率很高，都是在内存中操作的。
看了您给的链接，明天试一下 for each。但即使速度差不多，也不如用redim preserve了，毕竟要多一次循环。

月关

zpy2 发表于 2019-12-6 19:03
https://www.cnblogs.com/gyc19920704/p/5420230.html
你的一个是2次循环，后者是1次，不具有可比性的。
...

另外，我看老师们一般都是在类模块里用collection，很多东西我都还没学。这里只是说，想拿来当数组用，没有什么优势，不如数组+字典

zpy2

月关 发表于 2019-12-6 20:41
谢谢老师。
两次循环也是没有办法的事，他不支持一次性输出。
但开始我以为即使这样也会比 Redim prese ...

Collection 对象将每一项存储于 Variants 对象中。于是，能够添加到 Collection 对象里的内容列表就和能够存储到 Variants 中的内容列表是相同的。这包括标准数据类型、对象和数组－ 但不包括用户定义类型。 不管 Variants 中存储的是什么，它都占 16 字节，因此使用 Collection 对象不如使用数组的效率高。


这段看看吧，有时间可以研究下arraylist对象，还有npoi,可以研究的的确不少，哈哈

月关

zpy2 发表于 2019-12-6 20:56
Collection 对象将每一项存储于 Variants 对象中。于是，能够添加到 Collection 对象里的内容列表就和能 ...

你们炫技已经炫得我眼花缭乱的了，前阵子被各位老师带跑偏了，老师们展示什么我都想学。
这阵子终于冷静了下来，我只是一个刚自学了半年的小学生，要学的东西固然很多，路也很长，一步一个脚印，慢慢来吧

weiyingde

集合能够和对象的格式一起保存吗？