Slette hveranden række

Denne her sletter alle rækker, hvor rækkens celle i kolonne A er tom.

Public Sub DeleteEmptyRows()
    Dim lRow As Long

    For lRow = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
        If ActiveSheet.Cells(lRow, 1).Value = "" Then
            ActiveSheet.Cells(lRow, 1).EntireRow.Delete
        End If
    Next lRow
End Sub

HVor skal det skrives og hvordan skal det bruges - er ikke så hård til programering

Alt+F11 bringer dig ind i VBA'en..... vælg Insert | Module og indsæt ovenstående kode

Luk VBA igen
Tryk Alt+F8
Her kommer et billede frem, hvor du kan afspille makroen "DeleteEmptyRows"

Det kan gøres uden makro:

Marker kolonnen med blanke celler
Tryk F5
Vælg "Special"
Afkryds "Blanke"
Kun de blanke celler er nu markeret
Højreklik et sted i det markerede og vælg "Slet"
Du kan evt. vælge hele rækken
Tryk OK og alle blanke rækker er nu slettet.

Tak for et meget godt svar

Velbekomme ;-)

Smil - ja, hvis det var til dig jan *gg*

--> flemmingdahl - jeg kunne ikke få dit svar til at virke - derfor ingen point :-)

hmm - men du har givet point til mig - jan vil du ha dem ?