继续送分。

Question

如果一定要这样做，那就把Array1与Array2定义为Variant型
如:
dim Array1 as Variant
dim Array2 as Variant
redim Array2(1)
Array2(0)=1
Array2(1)=2
Array1=Array2

Answer 1

类型不一样
只有将两个数组都定义为Variant型 

Answer 2

或者redim array2() as single

Answer 3

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)这样做太粗野了，兄弟您还是慢慢一个一个转换比较安全