Option Explicit '只要被赋值的数组是动态数组或Variant变量就行了Private Sub Command1_Click() Dim arr1() As Integer '只要它是动态数据就行了 Dim arr2() As Integer ReDim arr1(10) ReDim arr2(20) arr1 = arr2 StopEnd SubPrivate Sub Command2_Click() Dim arr1 '一个Variant变量可以被赋值一个数组 Dim arr2(10) As Integer arr1 = arr2 stop End Sub
或者用Copymemery
dim a(10) as long
dim b() as long
dim i as longfor i=0 to 10
a(i)=i
next
b=a
for i=0 to 10
debug.? b(i);
next
debug.?
倒过来不行,比如:a=b
把接受的数组定义成variant类型(可变类型)的道理 和数组是可变是一样的。
variant类型是可变类型,会根据给他赋值的类型而变化的。接受什么类型自己就会变成什么类型
Option Explicit
'只要被赋值的数组是动态数组或Variant变量就行了Private Sub Command1_Click()
Dim arr1() As Integer '只要它是动态数据就行了
Dim arr2() As Integer
ReDim arr1(10)
ReDim arr2(20)
arr1 = arr2
StopEnd SubPrivate Sub Command2_Click()
Dim arr1 '一个Variant变量可以被赋值一个数组
Dim arr2(10) As Integer
arr1 = arr2
stop
End Sub