VBA Excel automatisch lege rij toevoegen

[Eizinga]

Hallo,

Ik heb data wat ik uit een systeem haal, waarbij in kolom A verschillende nummers komen te staan. Soms is dit een reeks van 3 maar het kan ook een uniek nummer zijn, maar ook bijvoorbeeld 6x hetzelfde. Is er iemand die een manier weet om automatisch een rij in te laten voegen zodra er weer een nieuw nummer komt. In mijn voorbeeld bestand zie je op blad 1 zoals het is en op blad 2 zoals ik het bedoel. Deze reeks kan in het echt wel 2000 nummers bevatten, dus om dit handmatig te doen is een hele klus en deze lijst komt elke week weer terug.

Alvast super bedankt voor het meedenken!

 

[Conseclusie]

Sub RijenInvoegen()
With ActiveSheet
    LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
End With
For Rij = LastRow To 2 Step -1
    If Cells(Rij, 1) <> Cells(Rij - 1, 1) Then
        Rows(Rij).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    End If
Next Rij
End Sub

 

[Eizinga]

Dit werkt perfect

Mijn dank is weer groot

De code doet precies wat de bedoeling is

 

[VenA]

Waarom wil je dit? Met een draaitabel kan het ook ook. Heb je geen VBA voor nodig.

 

[samui]

Ik zocht vandaag precies dezelfde vraag. Bedankt Elzinga. Je bent me net een paar dagen voor.

 

[VenA]

Kan wel een beetje korter.

Sub VenA()
  For j = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1
    If Cells(j, 1) <> Cells(j - 1, 1) Then Rows(j).Insert
  Next j
End Sub

 

[samui]

@VenA Wat verander je nu aan de code als je ipv 1, 2,3 of wellicht 4 regels wilt invoegen?
Heb er diverse aangepast maar dan gaat het niet goed.

 

[HSV]

Voor 4 rijen.

Then Rows(j).resize(4).Insert

 

[samui]

Voor 4 rijen.

Then Rows(j).resize(4).Insert

thanks