大家好，今日继续和大家分享VBA编
程中常用的常用“积木”过程代码。这些内容大多是我的经验的记录，来源于我多年的经验。今日分享的是NO.225-NO.226，内容是：
NO.225：数组的赋值和回填工作表
NO.226：将数组的值批量回填给工作表的办法
VBA过程代码225：数组的赋值和回填工作表
SubMynz()
'创建数组，并赋值
Dimarr(1To60000),iAsLong
Fori=1To60000
arr(i)=i
Nexti
Sheets(112).Select
'将数组的值写入单元格（C列）
[C1:C65536].Clear'清除原有数据
DimirowAsLong
DimstartimeAsDouble
startime=Timer
Forirow=1To60000
Cells(irow,3)=arr(irow)
Nextirow
MsgBox数组写入共用了Timer-startime秒！
EndSub
代码解析：mynz过程将1到60000的数赋值给数组arr，赋值完成后将数组的值回填到工作表中，回填的区域是C列，回填用的语句是循环语句，直接提取每个数组的值给单元格。过程中计算所用的时间提示给用户Timer-startime秒！
VBA过程代码226：将数组的值批量回填给工作表的办法
SubMynz()
'创建数组，并赋值
Dimarr(1To60000),iAsLong
Fori=1To60000
arr(i)=i
Nexti
Sheets(113).Select
'将数组的值写入单元格（c列）
[C1:C65536].Clear'清除原有数据
DimstartimeAsDouble
startime=Timer
[C1:C60000]=Application.WorksheetFunction.Transpose(arr)
MsgBox数组写入共用了Timer-startime秒！
EndSub
代码解析：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真的非常实用，希望大家掌握这个工具，利用这个工具，让自己在工作中轻松，高效，快乐。