arrays - 通过VBA从给定范围的列中填充数组的最快方法

Question

Dim A1 As Variant
A1 = ObjReport.Sheets(LngReportSht).Range("D" & ArrRow(1) + 1 & ":D" & 10).Value
For Lngi = 1 To UBound(A1)
    MsgBox A1(Lngi)   'Error line
Next Lngi

我尝试了上述方法来填充给定范围内的数组，但是在遍历数组时，它给出的错误下标超出范围。

标签： arraysexcelvba