请帮忙修改一条代码

ryoryo66 · 发表于 2019-10-5 22:18

arr = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)

这条数组,当A列只有A1有数据的时候,就提取不出来了.
只有当A1和A2都有数据的时候才可以提取

这个怎么修改一下?

wodewan · 发表于 2019-10-5 22:48

其实你这样写是对的，之所有取不出，是因为，当只有一个单元格有数据时，arr=range（。。）就不是一个数组赋值的过程了，这时的arr只是一个普通的变量不会转换成数组，arr=‘测试’，如果非要让arr转为一个数组，可以循环写入，但那样挺麻烦，取个巧的话就在row后面+1就行。另外写入单元格的时候，建议前面加一句清空B列的语句，如果没有的话数据写入会乱套。详解附件。

ryoryo66 · 发表于 2019-10-5 23:08

wodewan 发表于 2019-10-5 22:48
其实你这样写是对的，之所有取不出，是因为，当只有一个单元格有数据时，arr=range（。。）就不是一个数组 ...

感谢老师的讲解,明白了

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

[求助] 请帮忙修改一条代码

最新热点 /1