Question

小白请教如何用range把excel数据赋值给数组？

如果数据有10列但不确定多少行（有时候多有时候少），该如何给数组arr赋值呢？
Sub test()
Dim arr As Variant
arr=range("a“&1:”j“&[j1].End(4).Row) ‘从a1到j的最下端一行
End Sub
我猜想大概是这样，求老师帮我改改！

Answer 1

Sub test()
Dim arr As Variant
arr = Range("a1:j" & [j65536].End(3).Row)      '从a1到j的最下端一行
End Sub

Answer 2

arr=[a1].CurrentRegion
或者
arr=range("a1:j" & cells(rows.count,"J").End(3).Row )