Duplikate löschen und verschieben
25.03.2003 18:34:03
Chris
habe eine tabelle mit Doubletten in Spalte A. Alle Datensätze mit Doubletten werden gelöscht. Hierfür habe ich dank Eurer Hilfe folgendes Makro:
Sub Duplikate()
Dim j As Integer
Dim lrow As Integer
'erst sortieren
Cells.Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
'dann löschen
lrow = Cells(Rows.Count, 1).End(xlUp).Row
For j = lrow To 2 Step -1
If Cells(j, 1) = Cells(j - 1, 1) Then
Rows(j).Delete
'+++++++++++++++
Rows(j - 1).Delete
j = j - 1
'+++++++++++++++
End If
Next j
Range("a1").Select
End Sub
Nun benötige ich die gelöschten Datensätze sicherheitshalber doch in einer zweiten Tabelle.
Wie muß ich das Makro erweitern, damit die gelöschten Daten in die zweite tabelle geschrieben und entsprechend sortiert werden?
Vielen Dank für Eure Hilfe,
Gruß Chris