Opgelost Lege rij toevoegen

[schuurar]

Ik heb een heel bestand met veel rijen tekst. (zeker 1000 rijen)
Nu wil ik tussen elke rij 4 lege rijen maken om daar andere tekst tussen te voegen.
Is er een manier dat ik in 1 keer tussen alle bestaande rijen 4 lege rijen kan maken?

 

[AlexCEL]

Klein representatief voorbeeldje kan geen kwaad.

Waar komt dat bestand vandaan?
Wat moet er in die 4 rijen komen te staan?
Is dit een eenmalige actie of gaat dit vaker voorkomen?
En welke Excel versie gebruik je?

 

[schuurar]

bedank voor je bericht.
- bestand is gewoon een artikel bestand
- Ik gebruik excel365
- Eenmalige actie
In bestand 2 tabbladen.
tab 1 wat het is
tab 2 wat het moet worden

 

[AHulpje]

Zo:

 

[peter59]

Of zonder VBA. Als het toch maar eenmalig is.
Ik heb deze link als voorbeeld gebruikt.

Om deze inhoud te bekijken, hebben we jouw toestemming nodig om cookies van derden te gebruiken.
Voor meer gedetailleerde informatie, zie onze cookiespagina.

Accepteer cookies van derden

 

[AlexCEL]

Deze ergens in een cel op het eerste tabblad:

=LET(x;REEKS(5*AANTALARG(A:A);;5;1)/5;ALS(REST(x;1)=0;INDEX(A:A;x);""))

 

[HSV]

Of:

Sub invoegen() ' hsv ___minder interactie met het werkblad
  Cells(1).CurrentRegion.Name = "b"
   sv = [b]
   sv = Split(Join([transpose(b)], "|||||"), "|")
   Cells(1).Resize(UBound(sv) + 1) = Application.Transpose(sv)
End Sub

 

[snb]

Array formule in B1, doortrekken naar beneden.
45 vervangen door het aantal rijen *5

=IF(MOD(ROW(1:45);5)=1;OFFSET(A1;INT(ROW(1:45)/5);0);"")

 

[schuurar]

Bedankt voor alle reacties!

Zo:

Dit werkt heel fijn!
Alleen maakt hij alle kolomen met andere tekst leeg.
En dat is niet de bedoeling.
De kolommen a t/m o zijn gevuld met tekst.
Ook dat moet blijven staan.
Er moeten alleen lege rijen tussen komen.

 

[AHulpje]

Dan zo:

 

[schuurar]

TOP!!!
Helemaal goed zo.
Super bedankt! Dit gaat mij heel veel tijd schelen.