Excel

Skal den slette enkeltlinjer eller alle linier i arket?

alle

Prøv med

Sub SletTomA()
    lstrow = ActiveSheet.UsedRange.Rows(UBound(ActiveSheet.UsedRange.Value)).Row
        For i = lstrow To 1 Step -1
            If IsEmpty(Range("a" & i)) Then
                Range("a" & i).EntireRow.Delete
            End If
        Next i
End Sub

Mem gør det i en kopi af dit ark først :-)

Spiller bare, tak for hjælpen.

Hvis det virker plejer man at give point til den, der hjalp :-)

Shit :/ så det ikke.. tjekker lige hvordan jeg retter ASAP