Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Структурирование данных в массиве по уровням
 
Вопрос решил всем спасибо. Добавление строчек отключения обновления экрана  чудесно всё ускорило с 34 часов до 10 минут
Изменено: Pavel74 - 11 Сен 2018 20:10:18
 
С первым уровнем непонятно.
Код
Sub SumChoise()
Dim aData(), aLevel()
Dim i As Long, j As Long
    aData = Range("A1:F100").Value
    ReDim aLevel(1 To Application.max(Range("B1:B100")), 1 To 2)
    For i = 1 To UBound(aLevel): aLevel(i, 1) = i: Next i

    For i = 10 To 100
        For j = 4 To 5
            If aData(i, 2) > 1 Then
                aLevel(aData(i, 2) - 1, 2) = aLevel(aData(i, 2) - 1, 2) + aData(i, j)
            Else
                 '  для первого уровня
            End If
        Next j
    Next i
    
    Cells(10, 7).Resize(UBound(aLevel), 2).Value = aLevel
End Sub
 
Цитата
Добавление строчек отключения обновления экрана  чудесно всё ускорило с 34 часов до 10 минут
А переход на массивы ускорит еще в десятки раз.

То, что Вы удалили все из своего первого сообщения,, никуда не годится. Придут люди с похожей проблемой - им помощь не нужна?
 
Цитата
vikttur написал:
То, что Вы удалили все из своего первого сообщения,, никуда не годится.
Видимо обиделся за первые 2 закрытые темы. :(
"Все гениальное просто, а все простое гениально!!!"
Страницы: 1
Читают тему (гостей: 1)
Наверх