Добрый день, уважаемые форумчане.
Во время транспозиции массива с данными возникает ошибка Runtime error 13 Type mismatch. Не могу понять в чем причина, искал во многих источниках все равно, не могу понять причину и как ее излечить. В VBA новичок, поэтому и прошу помощи.
При чем макрос нормально отрабатывает если количество записей в массиве до 40-50К, как только их становится больше 60К возникает эта ошибка. Подозреваю что где-то в размерностях натупил, но найти не могу.
Ошибка возникает в этом месте в коде - строка № 80.
Подскажите, пожалуйста, в чем ошибся.
Во время транспозиции массива с данными возникает ошибка Runtime error 13 Type mismatch. Не могу понять в чем причина, искал во многих источниках все равно, не могу понять причину и как ее излечить. В VBA новичок, поэтому и прошу помощи.
При чем макрос нормально отрабатывает если количество записей в массиве до 40-50К, как только их становится больше 60К возникает эта ошибка. Подозреваю что где-то в размерностях натупил, но найти не могу.
Ошибка возникает в этом месте в коде - строка № 80.
Код |
---|
x = UBound(test2) test2 = Application.Transpose(test2) ReDim Preserve test2(1 To 3, 1 To x - them + 1) test2 = Application.Transpose(test2) test2(UBound(test2), 1) = Empty test2(UBound(test2), 2) = Empty test2(UBound(test2), 3) = Empty Loop |