Копирование ячеек в массив VBA

Question

Я пытаюсь увеличить массив arrSpecificWS при копировании диапазонов от листа wsTemp. Я получаю Подзаголовок за пределами допустимого диапазона Ошибка на ReDim Preserve arrSpecificWS (UBound (arrSpecificWS, 1) + 1) линия. Что мне не хватает?

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) 

Это гораздо быстрее, и тогда вы не должны обезьяна с redimming массивами.