vba数组vba数组赋值

vba数组赋值

arr=[a1:a10] 或者 arr=range("a1:a10") 前提是arr不能定义成数组，要定义成一个 variant 变量 如下 dim arr as variant arr=[a1:a10] 如果有错误 是二维的话，就用transpose 转置一下，具体如下 dim arr as variant arr=[a1:a10] arr=application.transpose(arr)