大家好，今日继续和大家分享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真的非常实用，希望大家掌握这个工具，利用这个工具，让自己在工作中轻松，高效，快乐。
