Vraag & Antwoord

Anders (software)

automatisch elke even rij in Excel leeg?

Anoniem
None
2 antwoorden
  • Ik heb een (groot) bestaand excel bestand. Nou wil ik graag dat elke even rij leeg wordt. Wat op rij nummer 2 staat, moet doorschuiven naar rij 3 etc. Hoe doe ik dit?

    Zoals gezegd: het is een groot bestand. Handmatig is het dus niet te doen.

    dankje!
  • Kun je doen met een macro.
    [code:1:4a72700a31]
    Sub ShiftDown()

    Range("A1").Activate
    While ActiveCell.Offset(1, 0).Text <> ""
    If ActiveCell.Row Mod 2 = 0 Then
    ActiveCell.EntireRow.Insert xlDown
    End If
    ActiveCell.Offset(1, 0).Activate
    Wend

    ' Laatste regel controleren
    If ActiveCell.Text <> "" And ActiveCell.Row Mod 2 = 0 Then
    ActiveCell.EntireRow.Insert xlDown
    End If

    End Sub
    [/code:1:4a72700a31]
    Om de beginrij te wijzigen, verander je Range("A1") in het gewenste cel-adres.

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.