vba编程办公技巧(利用VBA实现个人小型办公自动化过程中的数据批处理)

大家好，今日继续和大家分享VBA编程中常用的常用"积木"过程代码。这些内容大多是我的经验和记录，来源于我多年的经验。今日分享的是NO.225-NO.226，内容是：

NO. 225：数组的赋值和回填工作表

NO. 226：将数组的值批量回填给工作表的办法

VBA过程代码225：数组的赋值和回填工作表

Sub Mynz ()

'创建数组，并赋值

Dim arr(1 To 60000), i As Long

For i = 1 To 60000

arr(i) = i

Next i

Sheets("112").Select

'将数组的值写入单元格（C列）

[C1:C65536].Clear '清除原有数据

Dim irow As Long

Dim startime As Double

startime = Timer

For irow = 1 To 60000

Cells(irow, 3) = arr(irow)

Next irow

MsgBox "数组写入共用了" & Timer - startime & "秒！"

End Sub

代码解析：mynz过程将1到60000的数赋值给数组arr，赋值完成后将数组的值回填到工作表中，回填的区域是C列，回填用的语句是循环语句，直接提取每个数组的值给单元格。过程中计算所用的时间提示给用户Timer - startime & "秒！"

VBA过程代码226：将数组的值批量回填给工作表的办法

Sub Mynz ()

'创建数组，并赋值

Dim arr(1 To 60000), i As Long

For i = 1 To 60000

arr(i) = i

Next i

Sheets("113").Select

'将数组的值写入单元格（c列）

[C1:C65536].Clear '清除原有数据

Dim startime As Double

startime = Timer

[C1:C60000] = Application.WorksheetFunction.Transpose(arr)

MsgBox "数组写入共用了" & Timer - startime & "秒！"

End Sub

代码解析：mynz过程将1到60000的数赋值给数组arr，赋值完成后将数组的值回填到工作表中，回填的区域是C列，回填用的语句是[C1:C60000] = Application.WorksheetFunction.Transpose(arr)直接批量将数组的值给单元格区域。过程中计算所用的时间提示给用户Timer - startime & "秒！"对于数组的批量写入，用一条语句就可以完成。将数组的内容写入单元格区域中，即：单元格区域=数组名。

VBA是利用OFFICE实现自己小型办公自动化的有效手段，我根据自己20多年的VBA实际利用经验，总结了四部VBA学习资料，是我"积木编程"思想的体现。

第一：VBA代码解决方案，是VBA中各个知识点的讲解，覆盖了绝大多数的知识点；

第二：VBA数据库解决方案，是数据处理的专业利器，介绍利用ADO连接ACCDB,EXCEL。

第三：VBA数组与字典解决方案，讲解VBA中的数组和字典的利用。

第四：VBA代码解决方案之视频，是专门面向初学者的视频讲解，可以快速入门，更快的掌握这门技能。

VBA真的非常实用，希望大家掌握这个工具，利用这个工具，让自己在工作中轻松，高效，快乐。