将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() 本文来自路由人生,转载请注明出处。 标签:excel,数据库,数组