kan excel løse det eller skal der VBA til?

VBA - vender tilbage...

Koden anbringes i ARK med data:

Dim rækC
Public Sub start()
Dim ræk
    rækC = 1                        'Forudsætning p.t
   
    For ræk = 1 To 65000
        If Cells(ræk, 1) <> "" Then
            idnr = Cells(ræk, 1)
            antal = Cells(ræk, 2)
            opbygIdKolonne idnr, antal
        Else
            MsgBox ("Gennemløb afsluttet")
            Exit Sub
        End If
    Next ræk
End Sub
Private Sub opbygIdKolonne(id, antal)
    If antal > 0 Then
        For tæller = 1 To antal
            Cells(rækC, 3) = id
            rækC = rækC + 1
        Next tæller
    End If
End Sub

fik lavet min egen kode og det virkede også, men det gør din også, så der er selvfølgelig point, men kan du svarer mig på hvorfor at det går så langsomt, der kommer ca kun et idnr i sekundet det er for langsomt hvis der nu er 300 idnr. det går lige langsomt om jeg bruger din eller min kode. hvad kan det skyldes.

Prøv at sende dit ark til: pb@supertekst-it.dk

prøv:
Sub test()

rk1 = Cells(1000, 1).End(xlUp).Row
For t = 1 To rk1
For j = 1 To Cells(t, 2).Value
rk2 = Cells(1000, 3).End(xlUp).Row + 1
Cells(rk2, 3) = Cells(t, 1)
Next
Next
Cells(1, 3).Delete shift:=xlUp

End Sub

tak for tilbuddet med at sende det, men det er noget arbejdsrelateret så det går ikke, jeg prøver lige koden fra excelent....

OK

tror nu ikke det hjælper, supertekst kode er lige så hurtig her

okay, så kan det være min computer, eller måske er excelarket for omfattende, jeg prøver det på en anden computer på mandag, men tak for hjælpen begge 2

Hvad med at slå beregning fra, mens koden kører og så til igen, når koden er afviklet?

Application.Calculation = xlManual
Application.Calculation = xlCalculationAutomatic

og evt. også

Application.ScreenUpdating = false
-
-
-
Application.ScreenUpdating = true