<em>vba</em> <em>数组赋值</em>，<em>

EXCEL表的单元复格区域是一个二维数组
dim arr
arr=Sheet3.Range("D7:D9")
'这时的arr得到的是制二维数组
'你要转换成1维数组，先声明一个动态数组再重定义为知1维数组
dim brr()
redim brr(1 to ubound(arr))
'再重新将二维转一维
for i = 1 to ubound(arr)
brr(i)=arr(i,1)
next
'如果你是要间隔写进去道
for i = 1 to ubound(arr) step 2
brr(i)=arr(i,1)
next

数组赋值常量：
arr = Array (1,3,5)
数组复制区域：
arr = Range("A1:C1")

VBA数组赋值方式：

1. 字符串数组的定义：

   Dim arr(1 to 3) as string

   如此定百义，但是度不能直接问给数组赋值

2. 如果想直接给数组直接赋值，需要如下操作：

   Dim arr() as Variant

   arr=Array("a","b","c")

3. 赋值格式：

   例如，给变量a赋值一个数为12，则格答式为：a = 12 [注意：变量（即a）只专能是一字母，而赋予的值可以是一个式子，当它是式子时，a的值就是这个式子的结属果。

Excel VBA数组赋值主要分为一维数组赋值和二维数组赋值两方面来讲，多维数组赋值只要沿用二维的方法即可。在将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二维数组取数据上限的程序，如下，不e799bee5baa6e997aee7ad94e4b893e5b19e337过要先确定好你的数组是从0开始计数还是从1开始计数的，上面所讲数组赋值的例子都是从1开始计数的。