作者：乔山办公网日期：
返回目录：excel表格制作
Excel VBA数组赋值主要分为一维数组赋值和二维e79fa5e98193e59b9ee7ad94337数组赋值两方面来讲，多维数组赋值只要沿用二维的方法即可。在将vba 数组赋值的方法之前，先说下为什么要用数组的方法来写程序吧。使用excel vba数组赋值的主要目的是为了提高程序运行效率，相信用vba编程的童鞋都遇到过程序运行过慢的问题，其中最主要的一个原因就是excel vba程序从头至尾都在操作对象。用excel vba对数组进行赋值，即是将对象的值及相关属性，全部存储到内存中，然后在内存里执行其他程序，这样速度会提高非常多。好了，下面说怎么给excel vba数组进行赋值吧EXCEL VBA一维数组赋值的方法int Arr(5)={1,2,3,4,5}说明：括号中的5是指数组长度，固定数组在最开始确定好数组长度，使内存分配好空间，免去重定义数组长度，效率会高些。如果不定义数组长度的话，后期可以使用redim来更改。EXCEL VBA二维数组赋值的方法Arr = [{"a","b"; "e","f" ;"i","j";"m" ,"n"}] Arr = Range(Sheets("文本1").Range("a1"), Sheets("文本1"). Range("a" & Cells(65536, 1).End(xlUp).Row))说明：两种赋值方法如上，一个是赋予固定值，另一个是将某区域内数值全部导入。EXCEL VBA重新定义数组的方法ReDim Preserve Arr(j)最后说下excel vba二维数组取数据上限的程序，如下，不过要先确定好你的数组是从0开始计数还是从1开始计数的，上面所讲数组赋值的例子都是从1开始计数的。
aaa=array(1,6,8,18,19,20,25,62,63,64)
for i=0 to ubound(aaa)
msgbox(aaa(i))
next