[已解决]这个简单的数组的VBA代码怎么实现赋值的

hunpo · 发表于 2011-11-30 17:53

Sub 数组赋值()
arr = [row(1:10000)]
Range("A1").Resize(10000, 1) = arr
End Sub

运行结果就是第一列的第一行，依次加一，可是没有赋值语句啊，为什么，A1是1 ，B1 是2了呢

最佳答案

青城山苦丁茶

2011-12-1 15:39

[row(1:10000)]与你在单元格中输入数组公式row(1:10000)一样，返回一个数组了（具体可以去爬格子试试看），通过=就将该数组赋给了数组变量arr
Range("A1").Resize(10000, 1) = arr这当然就是将数组写到单元格区域中了

青城山苦丁茶 · 发表于 2011-11-30 20:08

第二三句不都是赋值语句吗

hunpo · 发表于 2011-12-1 10:18

还是没有解释清楚,那位大侠帮帮忙

tianti · 发表于 2011-12-1 14:02

呵呵你把行号赋给arr 了肯定返回的是行号啦

青城山苦丁茶 · 发表于 2011-12-1 15:39

[row(1:10000)]与你在单元格中输入数组公式row(1:10000)一样，返回一个数组了（具体可以去爬格子试试看），通过=就将该数组赋给了数组变量arr
Range("A1").Resize(10000, 1) = arr这当然就是将数组写到单元格区域中了

吕?布 · 发表于 2011-12-1 16:12

是问题没说清楚

hunpo · 发表于 2011-12-2 11:05

arr = [row(1:10000)] 是把1到10000行的行号付给arr吧? 所以arr就是一个一维数组了,对吧

青城山苦丁茶 · 发表于 2011-12-2 11:48

是。但 [row(1:10000)] 返回的是二维数组，所以arr就是一个二维数组了，而不是一维

		自动登录	找回密码
密码			注册