大家好，今日我们继续讲解VBA数组与字典解决方案，今日讲解的是第34讲：数组的传递。在应用数组的时候，我们往往需要要把数组的值由一个数组传递给另外一个数组，就如同变量的传递一样：

A=B '把B值赋给A

C=A '把A值赋给C

如上例，就完成了把值的传递的过程，分别把B的值传递给了A;把A的值传递了B,那么数组是否也可以呢？我们看下面的数组传递：

下面看我给出的代码：

Sub MyNZsz_34() '第34讲 如何把一个固定数组的值传递给另外一个数组

'直接赋值是不对的

Sheets("34").Select

Dim arr1(1) As Integer '定义一个一维固定数组arr1(1)

Dim arr2(1) As Integer '定义一个一维固定数组arr2(1)

arr1(0) = 1 '给arr1(1) 的数组元素0赋值为1

arr1(1) = 2 '给arr1(1) 的数组元素0赋值为2

arr2 = arr1 '讲数组1传递给数组2

MsgBox (arr2(1)) '提示数组2的元素1的值

End Sub

上述代码的过程要完成的是首先定义两个一维数组arr1(1)和 arr2(1)；然后先给其中的一个数组arr1(1)赋值，这个数组共用两个元素分别赋值为1,2；然后我们用普通变量赋值的方法把数组arr1(1)赋值给arr2(1)；最后提示数组2的元素1的值，那么是否会弹出对话框提示为1呢？

我们看看代码的截图和代码的运行：

1 代码截图

2 运行截图：

这个时候会提示我们不能这样给数组赋值。由此我们可以看出：对于给定的2 个静态数组不能相互赋值，否则将出现编译错误：不能给数组赋值。

那么要如何完成数组的值由一个数组传递给另外一个数组呢？常用的方法：①将静态数组赋值给动态数组②将静态数组赋值给一个变体变量③再有就是循环的方法。对于循环的方案比较简单，不再多说，这里着重讲解前两个方法。

对于动态数组我们在之前的讲解中已经讲了很多了，对于变量体大家要加强理解：数组可以用Variant 变体变量获取一组单元格的值，公式等，当不包括单元格地址。大家要理解Variant 变体变量的意义，当使用数组的这种赋值方法的时候一定要定义这个变量为Variant 变体变量。

对于上面给出的代码，我下面修正：

Sub MyNZsz_34_1() '第34讲 如何把一个固定数组的值传递给另外一个数组

'直接赋值是不对的

Sheets("34").Select

Dim arr1(1) As Integer '定义一个一维固定数组arr1(1)

Dim arr3() As Integer

Dim arr4 As Variant

arr1(0) = 1 '给arr1(1) 的数组元素0赋值为1

arr1(1) = 2 '给arr1(1) 的数组元素0赋值为2

ReDim arr3(1)

arr3 = arr1 '讲数组1传递给数组2

arr4 = arr1

MsgBox "动态数组赋值后：" & arr3(1) '提示数组3的元素1的值

MsgBox "Variant赋值后：" & arr4(1) '提示数组4的元素1的值

End Sub

下面看代码的截图;

代码的运行：

今日内容回向：

1 数组的值如何传递？

2 如何理解变体变量？