lege regels invoegen

[theac]

hallo ik heb een vraag

ik heb een bestand geexporteerd uit crystal reports, dit is data in 5 kolomen en 300 rijen keurig onder elkaar.
nu wil ik tussen elke regel een lege regel hebben.
ik heb een macro gemaakt, met absolute waarden erin (select a2, insert, select a4 insert enz), en het is dus een heeele grote macro geworden.
volgens mij kand dit sneller, kan iemand me helpen?

 

[lcodee]

Rijen invoegen:

Goede Morgen,

Probeer de volgende macro eens:

Sub InvoegenRijen()
Dim i As Integer

    Range("A2").Select
    If Not IsEmpty(ActiveCell) Then Selection.EntireRow.Insert
    For i = 1 To 350
        ActiveCell.Offset(2, 0).Select
        If Not IsEmpty(ActiveCell) Then Selection.EntireRow.Insert
    Next i
End Sub

 

[Wigi]

Werk met invoegen en verwijderen van rijen en kolommen steeds achterwaarts:

Sub InvoegenRijen()
Dim i As Integer
For i = 300 To 1 Step -1
    Range("A" & i).EntireRow.Insert
Next
End Sub

Wigi

 

[theac]

en bedankt!:thumb: