Regels invoegen

[Boerman]

In de bijlage staan in kolom A de verschillende letter. Nu wil ik na ieder letter een regel tussenvoegen. Nu kan elke regel invoegen, maar wellicht is hier een snelle methode voor.

Wie weet dit?

 

[JanBG]

Hoi,

Je voorbeeldje is wel erg summier. Wat bedoel je precies met "regel invoegen". Is dat een rij,is dat een kolom, kortom: verklaar je nader :d

 

[edmoor]

Aan de hand van je voorbeeld:

Sub RegelInvoegen()
    For i = Range("A3").CurrentRegion.Rows.Count + 2 To 1 Step -1
        If Cells(i, 1) <> "" Then Cells(i, 1).Insert Shift:=xlDown
    Next i
End Sub

 

[Boerman]

Na elke letter in kolom A dient een lege regel te komen.

Kan het niet zonder gebruik te maken van VBA?

 

[edmoor]

Nee, dat gaat niet zonder VBA als je het niet handmatig wilt doen.

 

[Boerman]

Jammer, dan blijft het een handmatige exercitie, maar toch bedankt.

 

[AlexCEL]

Hier nog optie met formule waarmee de tabel wordt omgezet in een nieuwe tabel met witruimte. Misschien kun je er iets mee...

 

[edmoor]

Leuke!

 

[Boerman]

inderdaad leuke mogelijkheid
Bedankt!

 

[AlexCEL]

Nog iets kortere variant van de formule in #7:

=ALS(IS.EVEN(RIJ());"";INDEX(A:A;INTEGER(RIJ()/2)+2))