vba 复制数组

VBA中已知数组ARR1，现在定义一个数组，怎么让ARR2中的数等于ARR1的数？也就是说把ARR1的值全复制给ARR2，求代码，谢谢

如果ARR2定义成动态数组，则直接ARR2=ARR1就行，如果ARR2不是动态数组，则只有当ARR2中的元素个数与ARR1中一样时才能完成要求，语句如下
For i = LBound(ARR1) To UBound(ARR1)
ARR2(i) = ARR1(i)
Next i

你的arr数组，本是一维数组，不需要转置。

只有arr=range("a1:a" & m).value 得来的才是二维的，但是转置以后还是二维的。

用循环，用range也是可以的

for j for j =2 to 10 step 2
sheets("0" & aaa).cells(8,i)=brr(i)
for j =2 to 10 step 2
sheets("0" & aaa).range("b8").offset(0,j-2)=arr(j/2)