Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Dupletten erkennen und löschen

Forumthread: Dupletten erkennen und löschen

Dupletten erkennen und löschen
20.01.2005 12:11:04
Jörg
Hallo, hier eine Frage...
habe viele doppelte Einträge in einer Tabelle. Gibt es eine Funktion
um diese zu erkennen und automatisch bis auf einen Eintrag zu löschen.
Vielen Dank für eure Mühe
Jörg
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dupletten erkennen und löschen
20.01.2005 12:15:11
Jana
Löscht doppelte in Spalte A:

Sub Doppelte_löschen()
' löscht Doppelte in Spalte A
Dim iRow As Integer, iRowL As Integer
iRowL = Cells(Cells.Rows.Count, 1).End(xlUp).Row
For iRow = iRowL To 1 Step -1
If WorksheetFunction.CountIf(Columns(1), Cells(iRow, 1)) > 1 Then
Rows(iRow).Delete
End If
Next iRow
End Sub

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige