值未存储在dynamic数组中

此前它工作正常，但现在的数据不存储在数组中，同样是在rng1中存储我可以通过？rng1（1,1）或？rng1（39,4）检查dubug窗口，但vArray是给错误下标出范围。

Dim vArray() As Variant Dim rng1 As Range Dim ShNm As String Dim lROW AS LONG ShNm = Sheets("Main").Range("G3") lRow = Worksheets(ShNm).Cells(Rows.Count, 1).End(xlUp).Row Set rng1 = Worksheets(ShNm).Range("A1:D" & lRow) vArray = Worksheets(ShNm).Range("A1:D" & lRow) or vArray = Worksheets(Sheets("Main").Range("G3")).Range("A1:D39") or vArray = Worksheets("ListofSheets").Range("A1:D39") 

Answer 1

尝试这个：

 vArray = Worksheets("ListofSheets").Range("A1:D39").Value2