Optimalizacia rychlosti kodu

Sub bezOptimalizacie()

    For i = 1 To 250000
        Range("A1").Offset(i, 0).Value = i
    Next i

End Sub


Sub optimalizacia()

    ' Nezobrazovat chybove hlasky
    Application.DisplayAlerts = False

    'Vypocet spravte na pozadi bez obnovovania obrazovky
    Application.ScreenUpdating = False

    ' Pokial nie je treba vypocet spravte na konci
    Application.Calculation = xlCalculationManual

    For i = 1 To 250000
        Range("F1").Offset(i, 0).Value = i
    Next i

    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic

End Sub