Az excel makró olyan gyors, hogy leolvad az arcod!

Írj egy Excel VBA makrót amit elindítva az A1 cellától az A10000 celláig bezárólag megszámozza a sorokat a lehető leggyorsabban.

Kód amit kiírt nekem:
====================
Sub SorokSzamozasaGyorsan()
  Dim i As Long
  Dim arr(1 To 10000, 1 To 1) As Long 

  'Tömb feltöltése memóriában 
  For i = 1 To 10000
   arr(i, 1) = i
  Next i 

  'Egyetlen művelettel kiírás a munkalapra 
  Range("A1:A10000").Value = arr
End Sub
====================
Ezt bemásoltam az excelbe és le is futtattam.
Hova kell bemásolni és mit kell nyomkorászni, itt megtalálod:
https://excelmakrobaratok.hu/irjuk-meg-eleted-elso-makrojat/

import time

def szamolj_ossze(eddigszamolj):
    start_time = time.time()  # időmérés kezdete    
    osszead = 0
    for i in range(1, eddigszamolj + 1):
        osszead += 1

    end_time = time.time()  # időmérés vége
    elapsed_time = end_time - start_time

    print(f"Futtatási idő: {elapsed_time:.6f} másodperc")     

def main():
    egymillio   =        1_000_000
    tizmillio   =   10 * egymillio
    szazmillio  =  100 * egymillio
    EGYMILLIARD = 1000 * egymillio

    print("Eddig számolunk: egymillio")
    szamolj_ossze(egymillio)


    print("Eddig számolunk: tizmillio")
    szamolj_ossze(tizmillio)

    print("Eddig számolunk: szazmillio")
    szamolj_ossze(szazmillio)

    print("Eddig számolunk: EGYMILLIARD")
    szamolj_ossze(EGYMILLIARD)

if __name__ == "__main__":
    main()

#include <stdio.h>
#include <stdlib.h>
#include <time.h>

double meddigfut(long meddigszamoljon) {
    clock_t start, end;
    double cpu_time_used;
    long osszeg = 0;

    // idõmérés kezdete
    start = clock();

    // számolás 0-tól meddigszamoljon-ig
    for (long i = 0; i <= meddigszamoljon; i++) {
       osszeg += 1 ;
    }

    // idõmérés vége
    end = clock();

    // idõ kiszámítása másodpercben
    cpu_time_used = ((double)(end - start)) / CLOCKS_PER_SEC;

    return cpu_time_used;
}


int main()
{
    double ennyi_ideig_szamolt;

    long egymillio   =        1000*1000;
    long tizmillio   =   10 * egymillio;
    long szazmillio  =  100 * egymillio;
    long egymilliard = 1000 * egymillio;

    ennyi_ideig_szamolt = meddigfut(egymillio);
    printf("Futtatasi ido egymilliora: %.4f masodperc\n", ennyi_ideig_szamolt);

    ennyi_ideig_szamolt = meddigfut(tizmillio);
    printf("Futtatasi ido tizmilliora: %.4f masodperc\n", ennyi_ideig_szamolt);

    ennyi_ideig_szamolt = meddigfut(szazmillio);
    printf("Futtatasi ido szazmilliora: %.4f masodperc\n", ennyi_ideig_szamolt);

    ennyi_ideig_szamolt = meddigfut(egymilliard);
    printf("Futtatasi ido egymilliardra: %.4f masodperc\n", ennyi_ideig_szamolt);

    return 0;
}

package hu.excelmakrobaratok;

public class Main {

    public static void main(String[] args) {

        long egymillio = 1000000;
        long tizmillio = 10 * egymillio;
        long szazmillio = 100 * egymillio;
        long EGYMILLIARD = 1000 * egymillio;

        double eddigFutott = 0;

        eddigFutott = mennyiIdeigfut(egymillio);
        System.out.println("Eddig számoltunk: egymillio és ennyi millisecundumig tartott: " + eddigFutott / 1_000_000_000.0);

        eddigFutott = mennyiIdeigfut(tizmillio);
        System.out.println("Eddig számoltunk: tizmillio és ennyi millisecundumig tartott: " + eddigFutott / 1_000_000_000.0);

        eddigFutott = mennyiIdeigfut(szazmillio);
        System.out.println("Eddig számoltunk: szazmillio és ennyi millisecundumig tartott: " + eddigFutott / 1_000_000_000.0);

        eddigFutott = mennyiIdeigfut(EGYMILLIARD);
        System.out.println("Eddig számoltunk: EGYMILLIARD és ennyi millisecundumig tartott: " + eddigFutott / 1_000_000_000.0);

    }

    public static double mennyiIdeigfut(long meddigSzamoljon) {
        long startTime = System.nanoTime();

        long sum = 0;

        for (long i = 0; i <= meddigSzamoljon; i++) {
            sum += 1;
        }

        long endTime = System.nanoTime();
        double duration = endTime - startTime;

        return duration;
    }
}

Option Explicit
Dim eddigSzamoljonAGep As Long

Sub elszamolSokaig()

Dim startTime   As Double
Dim elapsedTime As Double
Dim endTime As Double

Dim szamlalo As Long

Dim egymillio As Long
egymillio = 1000000 '1 000 000

Dim tizmillio As Long
tizmillio = 10 * egymillio

Dim szazmillio As Long
szazmillio = 100 * egymillio

Dim EGY_MILLIARD As Long
EGY_MILLIARD = 1000 * egymillio


Call szamolEsOsszeadEgyesevel(egymillio)


Debug.Print "Végeztem, eddig elszámoltam: egymillio " & elapsedTime & vbNewLine

'==============tizmillio=========
eddigSzamoljonAGep = tizmillio

Debug.Print "Elindultam tizmillio " & Time() & vbNewLine

startTime = Timer

For szamlalo = 0 To eddigSzamoljonAGep
    szamlalo = szamlalo + 1
Next

endTime = Timer
elapsedTime = endTime - startTime

Debug.Print "Végeztem, eddig elszámoltam: tizmillio " & elapsedTime & vbNewLine


'==============szazmillio=========
eddigSzamoljonAGep = szazmillio

Debug.Print "Elindultam szazmillio " & Time()

startTime = Timer

For szamlalo = 0 To eddigSzamoljonAGep
    szamlalo = szamlalo + 1
Next

endTime = Timer
elapsedTime = endTime - startTime

Debug.Print "Végeztem, eddig elszámoltam: szazmillio " & elapsedTime & vbNewLine

'==============kettoszazmillio=========
eddigSzamoljonAGep = szazmillio

Debug.Print "Elindultam 2szazmillio " & Time()

startTime = Timer

For szamlalo = 0 To 2 * eddigSzamoljonAGep
    szamlalo = szamlalo + 1
Next

endTime = Timer
elapsedTime = endTime - startTime

Debug.Print "Végeztem, eddig elszámoltam: 2szazmillio " & elapsedTime & vbNewLine

'==============EGYMILLIARD=========

eddigSzamoljonAGep = EGY_MILLIARD

startTime = Timer

Debug.Print "Elindultam EGY_MILLIARD " & Time()

For szamlalo = 0 To eddigSzamoljonAGep
    szamlalo = szamlalo + 1
Next

endTime = Timer
elapsedTime = endTime - startTime

Debug.Print "Végeztem, eddig elszámoltam: EGY_MILLIARD " & elapsedTime & vbNewLine


End Sub


Function szamolEsOsszeadEgyesevel(meddigSzamoljon As Long) As Double
'Idő mérésére szolgáló változók
Dim startTime As Double
Dim endTime As Double
Dim elapsedTime As Double

Dim szamlalo As Long

startTime = Timer 'Mérünk egy időpillanatot, amikor elindult

For szamlalo = 0 To eddigSzamoljonAGep
    szamlalo = szamlalo + 1
Next

endTime = Timer 'Mérünk egy másik időpillanatot, amikor már befejeződött az elszámolás

elapsedTime = endTime - startTime 'A későbbi (nagyobb) időből kivonjuk a korábbi (kisebb) időt,
'és megkapjuk a kettő különbségeként a futásidőt


szamolEsOsszeadEgyesevel = elapsedTime

End Function