VBA关于数组Dim,ReDim Preserve运行速度对比思考

最新推荐文章于 2023-10-13 17:53:42 发布
最新推荐文章于 2023-10-13 17:53:42 发布
阅读量5.6k 收藏 18
点赞数 2
分类专栏： VBA技术 文章标签： 数组不同定义方法运行速度对比 字典+动态数组提升效率 Dim preserve运行速度慢的问题
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/lon0619/article/details/97041036
版权

VBA关于数组Dim,ReDim Preserve运行速度对比思考

以前看教程经常有人说ReDim Preserve动态定义数组运行速度非常慢,特做测试分析是否真的想网友说的ReDim Preserve真的不堪重用
经测试得出一下结论:
1 、ReDim Preserve的速度快慢对redim的次数比较敏感。
循环100万次，10万次，1万次，对单元格赋值，dim数组，用字典的count次数定义数组维度，及ReDim Preserve动态定义数组，运行时间如下：
在这里插入图片描述
大家会发现动态数组运行起来每增加10倍次数，时间却增加100倍，
但是如果是for i = 1000000 to 1 step -1时，100W次也就2秒左右，
综上所述，直接定义一个较大维度的数组写代码比较简单，速度也能接受，但是10W次一次的循环直接ReDim Preserve也可以接受
先赋值给字典，然后用字典的count计数再定义字典，写起来稍微麻烦，但速度快。
测试代码如下：

如何插入一段漂亮的代码片

去博客设置页面，选择一款你喜欢的代码片高亮样式，下面展示同样高亮的 代码片.

// An highlighted block
Sub 测试用时()
Dim n&, i&, sr$, A$, B$, C$, Mypath$, brr()
Application.ScreenUpdating = False
Rem 单元格操作用时
iRow = 10000
Range("A1:D" & iRow).ClearContents
t = Timer
Mypath = "C:\Users\DDN\Desktop\test\*.*"
For i = 1 To iRow
    Cells(i, 1) = i
    Cells(i, 2) = i * 2
    Cells(i, 3) = i * 4
    Cells(i, 4) = i * 6
Next
[G1].Value = Format(Timer - t, "0.00")
i = 0


Rem 数组操作用时定义一个很大维度
Range("A1:D" & iRow).ClearContents
t = Timer
Dim arr(1 To 10000, 1 To 4)
For i = 1 To iRow
    arr(i, 1) = i '序号
    arr(i, 2) = i * 2
    arr(i, 3) = i * 4
    arr(i, 4) = i * 6
Next
Range("A1").Resize(UBound(arr, 1), UBound(arr, 2)) = arr
[G2].Value = Format(Timer - t, "0.00")
i = 0


Rem 用字典count重定义数组维度
Range("A1:D" & iRow).ClearContents
t = Timer
Set Mydic = CreateObject("Scripting.Dictionary") '创建一个字典放结果
For i = 1 To iRow
        A = i * 2
        B = i * 4
        C = i * 6
        Mydic(n) = A & "|" & B & "|" & C
Next
i = 0
ReDim myarr(1 To Mydic.Count, 1 To 4)
For i = 1 To Mydic.Count
    myarr(i, 1) = i
    myarr(i, 2) = Split(Mydic(n), "|")(0)
    myarr(i, 3) = Split(Mydic(n), "|")(1)
    myarr(i, 4) = Split(Mydic(n), "|")(2)
Next
Range("A1").Resize(UBound(myarr), UBound(myarr, 2)) = myarr
[G3].Value = Format(Timer - t, "0.00")
i = 0


Rem ReDim Preserve arr
Range("A1:D" & iRow).ClearContents
t = Timer
For i = 1 To iRow
        ReDim Preserve brr(1 To 4, 1 To i)
        brr(1, i) = i
        brr(2, i) = i * 2
        brr(3, i) = i * 4
        brr(4, i) = i * 6
Next
Range("A1").Resize(i, 4) = Application.Transpose(brr)
[G4].Value = Format(Timer - t, "0.00")
Application.ScreenUpdating = True
End Sub











VBA关于数组Dim,ReDim Preserve运行速度对比思考
如何插入一段漂亮的代码片
以前看教程经常有人说ReDim Preserve动态定义数组运行速度非常慢,特做测试分析是否真的想网友说的ReDim Preserve真的不堪重用
经测试得出一下结论:
1 、ReDim Preserve的速度快慢对redim的次数比较敏感。
循环100万次，10万次，1万次，对单元格赋值，dim数组，用字典的count次数定义数组维度，及ReDim Preserve动态定义数组，运行时间如下：
在这里插入图片描述
大家会发现动态数组运行起来每增加10倍次数，时间却增加100倍，
但是如果是for i = 1000000 to 1 step -1时，100W次也就2秒左右，
综上所述，直接定义一个较大维度的数组写代码比较简单，速度也能接受，但是10W次一次的循环直接ReDim Preserve也可以接受
先赋值给字典，然后用字典的count计数再定义字典，写起来稍微麻烦，但速度快。
测试代码如下：

如何插入一段漂亮的代码片
去博客设置页面，选择一款你喜欢的代码片高亮样式，下面展示同样高亮的 代码片.

// An highlighted block
Sub 测试用时()
Dim n&, i&, sr$, A$, B$, C$, Mypath$, brr()
Application.ScreenUpdating = False
Rem 单元格操作用时
iRow = 10000
Range("A1:D" & iRow).ClearContents
t = Timer
Mypath = "C:\Users\DDN\Desktop\test\*.*"
For i = 1 To iRow
    Cells(i, 1) = i
    Cells(i, 2) = i * 2
    Cells(i, 3) = i * 4
    Cells(i, 4) = i * 6
Next
[G1].Value = Format(Timer - t, "0.00")
i = 0


Rem 数组操作用时定义一个很大维度
Range("A1:D" & iRow).ClearContents
t = Timer
Dim arr(1 To 10000, 1 To 4)
For i = 1 To iRow
    arr(i, 1) = i '序号
    arr(i, 2) = i * 2
    arr(i, 3) = i * 4
    arr(i, 4) = i * 6
Next
Range("A1").Resize(UBound(arr, 1), UBound(arr, 2)) = arr
[G2].Value = Format(Timer - t, "0.00")
i = 0


Rem 用字典count重定义数组维度
Range("A1:D" & iRow).ClearContents
t = Timer
Set Mydic = CreateObject("Scripting.Dictionary") '创建一个字典放结果
For i = 1 To iRow
        A = i * 2
        B = i * 4
        C = i * 6
        Mydic(n) = A & "|" & B & "|" & C
Next
i = 0
ReDim myarr(1 To Mydic.Count, 1 To 4)
For i = 1 To Mydic.Count
    myarr(i, 1) = i
    myarr(i, 2) = Split(Mydic(n), "|")(0)
    myarr(i, 3) = Split(Mydic(n), "|")(1)
    myarr(i, 4) = Split(Mydic(n), "|")(2)
Next
Range("A1").Resize(UBound(myarr), UBound(myarr, 2)) = myarr
[G3].Value = Format(Timer - t, "0.00")
i = 0


Rem ReDim Preserve arr
Range("A1:D" & iRow).ClearContents
t = Timer
For i = 1 To iRow
        ReDim Preserve brr(1 To 4, 1 To i)
        brr(1, i) = i
        brr(2, i) = i * 2
        brr(3, i) = i * 4
        brr(4, i) = i * 6
Next
Range("A1").Resize(i, 4) = Application.Transpose(brr)
[G4].Value = Format(Timer - t, "0.00")
Application.ScreenUpdating = True
End Sub











Markdown 1794 字数 100 行数 当前行 13, 当前列 0 HTML 1685 字数 77 段落
×
拖拽到此处
图片将通过Fatkun完成下载
我爱吃土豆
关注
专栏目录
VBA 精选示例代码库
←か淡定☆ ヾ 的博客
09-13 2609
目录1 厘米&英寸&像素&Point 的转换 1 厘米&英寸&像素&Point 的转换 英寸（inch）转换为 Point Vinchs = 10 ' inch VPoints = Application.InchesToPoints(Vinchs) Debug.Print Vpoints 厘米（cm）转换为 Point VCentimeter= 1 ' cm VPoints = Application.CentimetersToPoi...
VBA入门到进阶常用知识代码总结47
tiansdk320的博客
02-17 466
第47集 程序优化与提速 205、 减少对象的调用 调用对象是非常非常的耗费资源的，所以一定要尽可能的少调用对象。包括： 工作簿、工作表、单元格以及外引用对象。 Sub 在循环中调用单元格() Dim x As Integer, k Dim t t = Timer For x = 1 To 20000 k = [a1] Next x Debug.Print Timer - t End Sub Su...
数组和字典查找速度比较
weixin_42117416的博客
08-29 5719
前言 通常我们认为在数据量较大时，字典取数据的效率是优于数组的，但是实际情况真的是这样的嘛？ 今天看虎书的时候，看到了一段话： 从目前来看，程序员应该更关注内存的访问而不是运算次数，原因是内存的发展速度已经跟不上处理器的发展速度。 原文：For the foreseeable future, a good heuristic is that programmers should pay more attention to memory access patterns than to operation c
VBA每日一练（18），数组array的用法 redim preserve等
热门推荐
奔跑的犀牛先生
12-04 1万+
定义方式 dim arr11 (5) dim arr12 (0 to 5 ) dim arr13 (1 to 5) dim arr21(1,5) dim arr22(0 to 1 ,0 to 5) dim arr22(1 to 1 ,1 to 5) dim arr3() 静态数组 dim arr51(5) 动态数组 dim arr61() redim arr61(13) r...
VBA 在循环里多次redim动态数组一定注意，需要加preserve
奔跑的犀牛先生
02-21 8086
1 错误例子 For i = 1 To count_new Randomize p2 = Int(1 + 10 * Rnd) Debug.Print "第" & i & "次随到的p2=" & p2 ReDim arr7(1 To i) '这里没写preserve 害的好惨！！ arr7(i) = p2 D...
VBA中 ReDim
最新发布
m0_74737305的博客
10-13 3898
ReDim 是一个强大的VBA关键字，用于处理动态数据集合、数组和多维数组的大小和维数。在处理不确定数据量或需要在运行时调整数据结构大小的情况下，ReDim 可以提供灵活性和效率。
vba数组dim_NDArray — —一个基于Java的N-Dim数组工具包
weixin_26713521的博客
09-03 607
vba数组dim 介绍 (Introduction) Within many development languages, there is a popular paradigm of using N-Dimensional arrays. They allow you to write numerical code that would otherwise require many levels...
VBA：汇总不同生产线的生产计划
Allen_tang的博客
06-04 1816
Background：公司有多条的生产线，生产计划员将不同的客户或者不同类别的产品的每日排产放在不同的Line中，我们需要把不同产线的产品汇总起来，方便我们后续转换为物料的每日需求（需要和BOM相乘 ...
【VBA】在VBA内部实现高速化Vlookup检索
weixin_47527667的博客
02-25 1万+
vlookup是在excel中最常使用的函数之一 但是当数据量非常大的时候 大量的vlookup会吃掉excel内存，导致文件变得很慢 下面提供一段vba的代码，让你在vba内部实行和vlookup完全一致的能力 因为使用的是在数组中比对数据的做法，计算速度会比在表内计算要提高数倍 在数据非常大量的情况下很适合使用 缺点是只能在vba内部使用，在外部不会留下函数，修改也只能在vba内部修改 以下是简单的代码外加注释说明 Function A_Vlookup() Dim Lsr As Long, SHT
VBA快速入门学习笔记
10-04 4760
NOTE 1： 一、VBA对象 VBA对象包括工作薄、工作表、工作表上的单元格区域、图表等等，工作簿、工作表、单元格、批注、透视表、自选图形、名称等等都是对象，VBA正是用于处理这些对象的语言。下图是一个比较经典的VBA对象类别图。在VBE（VB编辑器）里也可以看到对象的浏览器（F2键），对象可以相互包含。 二、VBA对象引用 对象的引用（reference） 在写代码是要控制对象，首先要找到这个对象，然后把这个对象的地址告诉给VBA程序，且要遵循从大到小的规则。和...
Redim preserve
iteye_11020的博客
11-20 2292
数组是包含相同数据类型的一组变量的集合，对数组中的单个变量引用通过数组索引下标进行。在内存中表现为一个连续的内存块，必须用Global或Dim语句来定义。定义规则如下： Dim 数组名([lower to ]upper [, [lower to ]upper, ….]) as type ;Lower缺省值为0。二维数组是按行列排列，如XYZ(行，列)。 除了以上固定数组外，VBA还有一种功能强...
vba中数组用法
pgymeitianjinbu的博客
03-19 4261
1.筛选数组
VB中preserve的用法
学习
10-10 1万+
<br />注：本文转载自：http://zhidao.baidu.com/question/161401549.html<br />ReDim 语句用来定义或重定义原来已经用带空圆括号（没有维数下标）的 Private、Public 或 Dim 语句声明过的动态数组的大小。<br /><br />可以使用 ReDim 语句反复地改变数组的元素以及维数的数目，但是不能在将一个数组定义为某种数据类型之后，再使用 ReDim 将该数组改为其它数据类型，除非是 Variant 所包含的数组。如果该数组确实是包含在
VBA - Redim an Array
02-05 2558
转载自：http://www.dailydoseofexcel.com/archives/2004/06/28/redim-an-array/   Array variables can be static or dynamic. That’s determined by the Dim statement. If you specify dimensions when you decla
VBA 为什么你redim() 动态二维数组总出错？因为 redim 动态数组不太适合和循环搭配
奔跑的犀牛先生
01-13 1万+
1总结 1.1 如何避免出错 如果是想生成一个二维数组，最后用静态声明，或则二次声明redim 一个足够大的动态数组 1.2 出错的原因是什么？ redim时只有最后1维可变化，redim不太适合和循环搭配，即使用 redim preserve也不行！ 你装数据时一般都会有一个充当计数器的变量,这个变量最后的值就是数组中装入值的数量 一般是声明一个足够大的静态数组,或二次声明一个足...
VBA学习笔记之随机数&数组redim
aiyin1399的博客
08-08 2406
发现更简单的： a=Application.RandBetween(-10, 10) 直接生成-10到10之间的随机整数 关于二维数组Redim Preserve： 如果使用了Preserve关键字，就只能重定义数组最末维的大小，且根本不能改变维数的数目。 具体参考 1 如果使用了 Preserve 关键字，就只能重定义数组最末维的大小，且根本不能改变维数的...
ReDim Preserve只能改变数组最末维大小​​​​​​​
平淡如茶
11-13 1117
eDim Preserve file_info(1 To i, 1 To 2) As String        file_info(i, 1) = Filename        file_info(i, 2) = Folderpath红色地方改成      ReDim Preserve file_info(1 To 2, 1 To i) As String        file_info(...
大量数据进行数组操作的Redim Preserve替代方法
greatbody的专栏
08-21 3874
大家应该有这样的一个概念，当然，我也是前几天才看到先人的文章中写道的： VB中，不定数组的Redim Preserve方法在数目少的时候，还不影响，但是到了数组项多了，就会拖慢速度。为什么？高手在文中说过：VB中的Redim Preserve是重新开辟了一个指定大小的数组，然后再把你原数组中的数据拷贝过去的。 这样，也就不难理解如果循环中，尤其是大量不定数组的操作过程中，有Redim Pr
VBA学习——数组
chenhuake的博客
10-15 744
数组的定义，重定义，赋值……
vba redim preserve
04-06
b'vba redim preserve'是一种在Visual Basic for Applications (VBA)中使用的重置动态数组大小并保留现有数据的语句。这意味着您可以更改现有数组变量的大小而不会丢失数据。在使用Redim Preserve时，您必须先声明一...
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值