Gedeeltelijk dubbele rijen verwijderen

[Greatchampion]

Hallo,

In m'n Excel sheet heb ik een aantal rijen waarvan sommige rijen een subrij is van een andere rij. Ik wil deze subrijen verwijderen. Hoe kan dit handig worden gedaan?

voorbeeld:

0,1,2,3
0,1,2,3,4,5
0,1,2,3,4,5,6,7,8,9
0,1,2,3,4,5,6

ik wil alleen 0,1,2,3,4,5,6,7,8,9 als uitkomst hebben.

 

[spaarie]

Je zou kunnen AutoFilteren, maar dan verberg je de rijen. Weet niet of dat een probleem is.
Anders zou je met een module wat kunnen doen;

Sub Spaarie()
    With Sheets(1) '1 staat voor de index nummer van blad kan ook ("data") ipv (1)
        For i = .UsedRange.Rows.Count To 1 Step -1
            If IsNumeric(Left(.Cells(i, 1), 1)) Then 'de 1 staat voor de 1e kolom
                If Len(.Cells(i, 1)) <> 19 Then .Cells(i, 1).EntireRow.Delete
            End If
        Next
    End With
End Sub