【32位和64位哪个流畅】数据的存储及代码运算时间比较

【分享成果，顺熙正能量】人生的真谛是以朴素客观的态度解决人生要面对的诸多问题，处理复杂的纠缠、懦弱的悲伤，使生活和谐和睦，培养内心的氛围，不要因外在环境而发生变迁和起伏。

《VBA信息获取与处理》教程是我推出第六套教程，目前已经是第一版修订了。这套教程定位于最高级，是学完初级，中级后的教程。这部教程给大家讲解的内容有：跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作，剪切板应用、Split函数扩展、工作表信息与其他应用交互，FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。程序文件通过32位和64位两种OFFICE系统测试。是非常抽象的，更具研究的价值。

教程共两册，八十四讲。今日的内容是专题四“EXCEL工作表数据的读取、回填和查找”的第1讲：数据的存储及代码运算时间比较

第一节 工作表数据和数组之间的传输比较

工作表单元格数据和VBA变量之间的数据传输是经常要应用的操作，这项操作占用的时间要比其他操作占用的时间要多，所以我们的原则是应将这种操作保持在最低的次数。通过一次操作（而不是一次单元格的操作）将数据传递给数组，或者将数组数据传递给工作表，这样可以大大提高Excel应用程序的性能。一般的原则是：如果需要对VBA中的数据进行大量计算，则应将工作表中的所有值传输到数组中，对数组进行计算，然后再将可能利用的数组数据回填到工作表。这样的操作可以将工作表和VBA之间传输数据的次数保持在最小值。例如将100个数组数据一次传输到工作表比传输100次，每次传输一个数据值的效率要高得多。

我们在VBA中处理数据时，一般有三种方案可以选择和利用，一是数组存储数据，二是字典存储数据，第三是不在内存中处理，直接在工作表中读取和处理。

1 将工作表数据存储在数组中，在内存中处理数据

我们先来讲解上面的第一种方案，将工作表数据存储在数组中，然后在内存中处理数据的方案，为了验证处理的效果，我们在工作表中给出了2000个数据，然后先将这些数据读到数组中，再在数组中求和计算，我们看下面的代码：

Sub MYNZ() '数组求和

t = Timer

Sheets("SHEET1").Select

Dim Arr() As Variant

Arr = Range("A1:A2000")

MYSUM = 0

For R = 1 To UBound(Arr, 1)

MYSUM = MYSUM + Arr(R, 1)

Next

t2 = Timer - t

MsgBox "总和为：" & MYSUM & Chr(13) & "运行时间:" & Format(t2, "0.00000") & "秒"

End Sub

代码截图：

这些代码对于中级以上的朋友是非常容易理解的，只是思路的问题。代码就不再讲解。

看看下面的运行结果：

运行结果：

2 将工作表数据存储在字典中，在内存中处理数据

我们再来讲解上面的第二种方案，将工作表数据存储在字典中，然后在内存中处理数据的方案，为了验证处理的效果，我们同样在工作表中给出了同样的2000个数据，然后先将这些数据读到字典中，再在求和计算，我们看下面的代码：

Sub MYNZA() '字典求和

t = Timer

Sheets("SHEET1").Select

Dim Arr() As Variant

Arr = Range("A1:A2000")

Set myDic = CreateObject(";)

For i = 1 To UBound(Arr)

myDic(i) = Arr(i, 1) '初始化字典

MYSUM = MYSUM + myDic(i)

Next i

t2 = Timer - t

MsgBox "总和为：" & MYSUM & Chr(13) & "运行时间:" & Format(t2, "0.00000") & "秒"

End Sub

代码的截图：

代码的运行结果：

3 直接在工作表中处理数据

最后我们来讲解上面的第三种方案，直接在工作表中处理数据，为了验证处理的效果，我们同样在工作表中给出了同样的2000个数据，然后直接在工作表中对这些数据求和处理，我们看下面的代码：

Sub MYNZB() '工作表求和

t = Timer

i = 1

Sheets("SHEET1").Select

MYSUM = 0

Do While Cells(i, 1) <> ""

MYSUM = MYSUM + Cells(i, 1)

i = i + 1

Loop

t2 = Timer - t

MsgBox "总和为：" & MYSUM & Chr(13) & "运行时间:" & Format(t2, "0.00000") & "秒"

End Sub

代码截图：

代码的运行：

我们看看数据的运行结果，可以看出运行的效率，但要提醒大家注意：

① 不要一味的追求的效率，注意理解我的一篇文章《VBA程序的运行时间优化和视觉效果的兼顾》。

② 每种方案都有自己的可利用价值，比如字典的排重是非常有效的手段。

本节知识点回向：实现数据在工作表和VBA之间的传输有哪些方案？各是什么？注意根据自己的经验理解每种方案的优缺点。

本专题参考程序文件：004工作表.XLSM

我20多年的VBA实践经验，全部浓缩在下面的各个教程中，教程学习顺序：

① 7→1→3→2→6→5或者7→4→3→2→6→5。

② 7→8

各套教程内容简介:

第7套教程（共三册）：《VBA之EXCEL应用》：是对VBA基本的讲解

第1套教程（共三册）：《VBA代码解决方案》：是入门后的提高教程

第4套教程（16G）：VBA代码解决方案之视频（第一套的视频讲解）

第3套教程（共两册）：《VBA数组与字典解决方案》：是对数组和字典的专题讲解

第2套教程（共两册）：《VBA数据库解决方案》：是对数据库的专题讲解

第6套教程（共两册）：《VBA信息获取与处理》：讲解VBA的网络及跨程序应用

第5套教程（共两册）：VBA中类的解读和利用：类及接口技术的讲解

第8套教程（共三册）：VBA之Word应用（最新教程）：word中VBA的利用

• 第六套教程：VBA信息获取与处理，这是一部高级教程，涉及范围更广，实用性更强，面向中高级人员。教程共二十个专题，包括：跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作，剪切板应用、Split函数扩展、工作表信息与其他应用交互，FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。程序文件通过32位和64位两种OFFICE系统测试。