Hoe kan ik op een makkelijke manier veel lege rijen verwijderen

[kippiebla]

In het bijgevoegde bestand staan honderden namen en emailadressen. Er worden steeds nieuwe namen en emailadressen aan toegevoegd. Maar tussen elke naam + emailadres staan telkens 5 lege rijen. Is er een manier om deze makkelijk en snel te kunnen verwijderen?

 

[roeljongman]

je kunt filteren op lege waarden en dan de gefilterde rijen verwijderen

 

[OctaFish]

Dit is een vreemd voorbeeld; normaal gesproken gebruik je hiervoor een tabel(lijst) met koppen, zodat je makkelijk kan sorteren op een specifiek veld. In jouw geval zou ik zeggen: selecteren de hele handel, en oplopend sorteren. En er dus een nette tabel van maken...

 

[kippiebla]

je kunt filteren op lege waarden en dan de gefilterde rijen verwijderen

Dank! Ja, dat is natuurlijk ook een weg. Kan je me nog een zetje geven hoe ik kan filteren op lege waarden?

 

[gast0660]

of met een macro.

Sub dotch()
Dim GRij As Range
Dim LRij As Integer, IRij As Integer
Set GRij = ActiveSheet.UsedRange
LRij = GRij.Row - 1 + GRij.Rows.Count
Application.ScreenUpdating = False
 For IRij = LRij To 1 Step -1
    If Application.CountA(Rows(IRij)) = 0 Then
        Rows(IRij).Delete
    End If
Next IRij
Application.ScreenUpdating = True
End Sub

 

[jolivanes]

Sub Misschien()
    Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).SpecialCells(4).EntireRow.Delete
End Sub

 

[kippiebla]

Heel veel dank iedereen!
Opgelost.