Microsoft Excel

Herbers Excel/VBA-Archiv

Duplikate entfernen

Betrifft: Duplikate entfernen von: Bobo
Geschrieben am: 31.08.2004 10:58:07

Hallo zusammen,

ich habe eine Liste bestehend aus zwei Spalten. In Spalte A ist einen Identifikationsnummer angegeben. In der Liste sind Duplikate. Diese möchte ich der Liste entnehmen. Wer kann mir da einen eleganten Weg nennen.

Vielen Dank.
Bobo

  


Betrifft: AW: Duplikate entfernen von: Dieter Maj
Geschrieben am: 31.08.2004 11:00:12

Hallo Bobo
vielleicht so:
Sub DoppelteWeg()
'für Spalte A, für Texte
    Dim i As Integer, iRows As Integer
    iRows = Cells(Cells.Rows.count, 1).End(xlUp).Row
    For i = iRows To 1 Step -1
        If WorksheetFunction.CountIf(Columns(1), Cells(i, 1)) > 1 Then
            Rows(i).Delete
        End If
    Next i
End Sub


Gruß Dieter


  


Betrifft: Danke von: Bobo
Geschrieben am: 31.08.2004 11:07:10

a


 

Beiträge aus den Excel-Beispielen zum Thema "Duplikate entfernen"