in Excel-Zelle und benachbarten Wert löschen, aber halten Sie ist die größte Zahl

Question

Hier ein Beispiel für die Excel-Tabelle muss ich:

1631823842 1 
1631823842 2 
1631823842 3 
1631823853 1 
1631823853 2 
1631823859 1 
1631823859 2 
1631823859 3 

Was ich versuche, herauszufinden, wie alle Duplikate löschen Außer dem größten. So wäre ich mit:

1631823842 3 
1631823853 2 
1631823859 3 

Wie kann ich dies mit Excel erreichen?

Versuch, aber ich bin mir nicht sicher, was der Befehl für mehrere Spalten ist. Versuchte A: B und A, B. Ziemlich sicher I = 2 ist richtig.

Hier ist sie:

Sub sclera() 

Dim lastRow As Long 
e = 1 

With ActiveSheet 

lastRow = .Cells(.Rows.Count, "A:B").End(xlUp).Row 

For I = 2 To lastRow 

If Left(.Cells(I + 1, 1), 10) <> Left(.Cells(I, 1), 10) Then 
    .Cells(e, 2) = .Cells(I, 1) 
    e = e + 1 
End If 

Next 

End With 

End Sub 

Answer 1

Dies setzt voraus, alle Ihre Daten in einer Spalte ist.

Sub sclera() 

Dim lastRow As Long 
e = 1 

With ActiveSheet 

    lastRow = .Cells(.Rows.count, "A").End(xlUp).Row 'assuming your data is in column A 

    For I = 1 To lastRow 'assuming it starts on row 1 

    If left(.Cells(I + 1, 1), 10) <> left(.Cells(I, 1), 10) Then 
     .Cells(e, 2) = .Cells(I, 1) 
     e = e + 1 
    End If 

    Next 

End With 

End Sub 

Answer 2

Da Sie einen Code setzen nicht, antworte ich auf die gleiche Weise: P Nur jede Zahl mit nächsten vergleichen, wenn sie gleich sind, überprüfen zweite Nummer und löschen die niedrigste