Lege cellen in kolom invoegen

[xkrid]

Hoi,

Ik heb in kolom A 999 cellen met een waarde, dus A1 t/m A99 zijn gevuld.

Nu wil ik na elke gevulde cel 10 lege cellen invoegen; hoe doe ik dat

 

[lam201]

selecteer 10 rijen op de plek waar je ze wilt toevoegen.
rechtermuisklik --> Insert (NL:invoegen)

of Ctrl + '+' als sneltoets

 

[xkrid]

Ja ok, en hoe kan ik na elke gevulde cel 10 lege cellen invoegen?

Dus bijv:

Huidig:
A1: [waarde1]
A2: [waarde2]
A3: [waarde3]
A4: [waarde4]

Gewenst:
A1: [waarde1]
A2 t/m A11: (leeg)
A12: [waarde2]
A13 t/m A22: (leeg)
A23: [waarde3]
etc

 

[VenA]

Met een macro

Sub VenA()
  For j = 99 To 2 Step -1
    Rows(j).Resize(10).Insert
  Next j
End Sub

 

[xkrid]

Yesss dat werkt, thanks!