Решил тут посчитать счастливые билетики, для чего потребовалась куча цифр в столбиках от 0 до 999999. Попробовав протянуть, на нескольких тысячах уже устал держать мышку, решил сделать макрос. Макрос примитивнейший:
Но выполнялся он минут десять... Те же формулы разбиения этого числа на цифры, работали довольно быстро, т.е. пару секунд - обработка одного столбца. А тут вроде всё просто, а работало довольно долго. Это я - тупой, или можно как-то этот код оптимизировать?
Код |
---|
Sub макрос() Application.ScreenUpdating = False For i = 1 To 999999 Step 1 Cells(i, 1) = i Next i Application.ScreenUpdating = True End Sub |
Если автоматизировать бардак, то получится автоматизированный бардак.