数组是一个连续可索引的具有相同内在数据类型的元素所成的集合，在程序中很常用的数据类型，但数据之间的运算，经常通过其索引号，即下标来循环后计算，今天在Excelhome中，看到狼行天下用Evaluate方法，来解决把数组间运算后的结果，赋值给单元格，感觉很实用，值得学习，就记录于此：

Sub 把两个数组相减的结果赋值给单元格区域()
'*******************************************
'时间：2008-11-18
'作者：狼行天下  发布于：Excelhome
'功能：把两个数组相减的结果赋值给单元格区域
'整理：http://www.excelba.com
'*******************************************
ar = Array(3, 4, 5, 6, 7)
br = Array(2, 1, 5, 2, 5)
[B1:F1] = Evaluate("{" & Join(ar, ",") & "}-{" & Join(br, ",") & "}")
End Sub

上面的代码虽然简单，但可以修改后变化成很多实用的程序，比如赋值给[A1:A5]，只要把最后一句的代码修改为：

[A1:A5] = Evaluate("{" & Join(ar, ";") & "}-{" & Join(br, ";") & "}")

也许在什么时候，你就可以用上了哦！