路由人生 软件工具 将excel表格数据写入数组

将excel表格数据写入数组


x = Range(“A65536”).End(3).Row ‘x的值为A列中最后一个非空单元格行号
ReDim a(x) ‘重新定义数组a,使之上限为x
For i = 1 To x ‘i从A1依次往下循环,直到最后一行

a(i – 1) = Range(“A” & i) ‘将A列单元格值依次存放于数组中

Next

MyArr1 = a()

本文来自路由人生,转载请注明出处。

作者: myweb

发表评论

联系我们

联系我们

在线咨询: QQ交谈

邮箱: yufe@yufe.me

关注微信
微信扫一扫关注我们

微信扫一扫关注我们

关注微博
返回顶部