今天学习VBA数组，写不进去，不知道什么原因？
第1个回答 2021-07-10
往数组里赋值只能一个一个元素循环写入，无法批量赋值：
arr(1,1)=xxx
arr(1,2)=xx
........
arr(2,1)=xxxx
arr(2,2)=xxxx
........
arr(5000,100)=xxxxxx
这里range("A1:BB1")是个标题行？想放入数组arr中的第1行？
可以设个变量s， 然后s=range("A1:BB1") 这里的S是个相当于一维数组的变量，可以用数组的索引号来调用数组的内容，s(0),s(1).......依次就是表格中a1,b1,c1....bb1,具体如下
s=range("A1:BB1")
for y= 0 to ubound(s)
arr(1,y+1)=s(y)
next y本回答被网友采纳
arr(1,1)=xxx
arr(1,2)=xx
........
arr(2,1)=xxxx
arr(2,2)=xxxx
........
arr(5000,100)=xxxxxx
这里range("A1:BB1")是个标题行？想放入数组arr中的第1行？
可以设个变量s， 然后s=range("A1:BB1") 这里的S是个相当于一维数组的变量，可以用数组的索引号来调用数组的内容，s(0),s(1).......依次就是表格中a1,b1,c1....bb1,具体如下
s=range("A1:BB1")
for y= 0 to ubound(s)
arr(1,y+1)=s(y)
next y本回答被网友采纳
