将单元格复制到数组 VBA

Question

当我从工作表 wsTemp 复制范围时，我正试图增加数组 arrSpecificWS。我在 ReDim Preserve arrSpecificWS(UBound(arrSpecificWS, 1) + 1) 行上收到 Subscript out of range 错误。我错过了什么？

Dim I as  long
Dim arrSpecificWS()

 'Prepare data to the array
  ReDim arrSpecificWS(0, 1 To 6)



For i = 2 To wsTemp.UsedRange.Rows.count
   arrSpecificWS(UBound(arrSpecificWS), 1) = wsTemp.Range("D2" & i).Value
   arrSpecificWS(UBound(arrSpecificWS), 2) = wsTemp.Range("E2" & i).Value
   ReDim Preserve arrSpecificWS(UBound(arrSpecificWS, 1) + 1)
   ReDim Preserve arrSpecificWS(UBound(arrSpecificWS, 2) + 1)

Next i

Answer 1

这是您的代码的缩短版本吗？如果不是，并且您只是在数组中添加一个范围，为什么还要在范围内循环并一次分配一个单元格的值？您可以通过为数组分配一个范围来设置数组，如下所示：

Dim arrRange() As Variant ' declare an unallocated array.
arrRange = Range("D2:E" & wsTemp.UsedRange.Rows.count)

这要快得多，然后您就不必为重新调整数组而胡思乱想了。