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

将excel表格数据写入数组

作者: myweb 发布: 2016年2月28日 408阅读 0评论

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()

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

151赞

标签:excel，数据库，数组

作者: myweb

发表评论取消回复

要发表评论，您必须先登录。