Slet rækker

Det kan f.eks. gøres med denne makro:

Sub DeleteTextLines()
    Dim lCount As Long
    For lCount = Range("A65536").End(xlUp).Row To 1 Step -1
        If Not (IsNumeric(Cells(lCount, 1).Value)) Then
            Cells(lCount, 1).EntireRow.Delete
        End If
    Next lCount
End Sub

Marker rækken og vælg tabel og vælg slet. Er det det du mener ?

1. Marker kolonne A
2. Tryk F5
3. Tryk "Speciel"
4. Vælg "Konstanter" og fjern markeringen i "Tal"
5. Tryk OK

Nu skulle alle celler som ikke indeholder tal være markeret.

6. Højreklik på en af de markerede celler og vælg "Slet (op)".