Med Formel: Skriv en 1 i cell A1. Skriv sedan i A2: =OM(ANTAL.OM(A$1:A1;A1)=A1;A1+1;A1), dra ner till rad 200.


Med VBA:
Öppna vba med alt f11, Lägg till en modul i projektfönstret, dubbelclicka på modulen och lägg in koden i fönstret som poppar upp. Kör sedan macrot från det blad som du vill skriva till. Skriver till kolumn A, bara att ändra om du vill skriva till en annan.

Mvh Christian


Sub PrintnumbersByCount()

Dim i, k As Long
i = 1
Dim rng As Range: Set rng = ActiveSheet.Range("A1")


Do While rng.Row < 200
For k = 1 To i
If rng.Row = 201 Then Exit Sub
rng = i
Set rng = rng.Offset(1, 0)

Next k
i = i + 1
Loop

End Sub