VBA makro voor invoegen rijen

[Offthefield]

Ik heb een database in excel met ca. 400 getallen, nu wil ik een VBA programma maken
die een regel tussenvoegt als de getallen niet hetzelfde zijn bv.

1
1
2
3
4
5
5
6

Nu moet het programma GEEN regel tussenvoegen tussen de twee
''eenen" en ook niet tussen de "vijven", wel tussen 1en 2, 2 en 3 ect

Wie kan mij een tip geven

Bij voorbaat bedankt

 

[Maglor]

dit misschien?

Sub invoegen()

While Not IsEmpty(ActiveCell)
If ActiveCell.Value <> ActiveCell.Offset(-1, 0).Value Then
Selection.EntireRow.Insert
ActiveCell.Offset(2, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If

Wend
End Sub

Dit impliceert wel dat je je in het begin op de 2de cel in de kolom moet plaatsen.