Office: Zeilen mit identischem Inhalt in Spalte A löschen?

Hallo,

ich hab ein Problem, vielleicht weiss jemand von Euch Rat?

In einer Liste steht in Spalte A mehrmals derselbe Wert, bevor der nächste Wert kommt, der wieder mehrmals drinsteht.

Die Anzahl ist nicht immer gleich. Ich brauche jedoch jeweils nur 1 Zeile mit dem Wert.

Zum händisch aussortieren zu viel, ca. 25.000 Zeilen.

Beispiel:

A B ...

12 a
12 a
12 a
12 a
13 b
13 b
14 c
14 c
14 c
14 c
15 d
15 d
16 e
17 f
17 f
17 f
17 f
... ...

Fragen oder Infos bitte auch gern an joerg (at) hohmeier.org

Thx,
schöne Grüße Jörg.

 

Die Forensuche hilft!

https://www.office-hilfe.com/support/threads/excel-doppelte-eintraege-finden-und-loeschen.745/

 

Danke und Sorry !

Hallo Michael,

vielen Dank für Deine schnelle Hilfe! Sorry, hatte den Artikel nicht gefunden ... aber er ist die Lösung für mein Problem!

Von den über 25.000 Zeilen mit doppelten Einträgen bleiben jetzt ca. 1700 einzelne übrig.

Perfekt, ich schulde Dir ein Bier :-)

Tschö, Jörg.

 

Dann schick ich dir mal per PN meine Adresse wegen dem Bier ;-) Freut mich dass ich helfen konnte.

 

Hallo,

vielleicht etwas spät, aber trotzdem: Daten nach Spalte A sortieren. Nach dem letzten Datensatz in der ersten leeren Zelle in Spalte A "Ende" eingeben. Den Cusor in den ersten Datensatz in Spalte A setzen. Und Makro starten. Alle doppelten Zeilen werden gelöscht. Geht recht schnell.
********************
Sub doppelte_zeilen_löschen()

For x = 1 To 100000
If ActiveCell.Value = "Ende" Then
End
End If

a = ActiveCell.Value
ActiveCell.Offset(1, 0).Range("a1").Select
While ActiveCell.Value = a
Selection.EntireRow.Delete
Wend

Next x

End Sub
********************
Grüße
J.