vba数组赋值，excel vba中数组怎么赋值？（excel vba 数组）

EXCEL表的单元格区域是一个二维数组dim arrarr=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)