wie bitte kann das erfolgen - Alle doppelten in einer Spalte löschen ohne Spezialfilter.
Mit "clipper" könnt´s ich, aber VBA ?
Grüssis
Reimund
Sub t()
Dim iZeile As Long
For iZeile = Range("a65536").End(xlUp).Row To 1 Step -1
If WorksheetFunction.CountIf(Columns(1), Cells(iZeile, 1)) > 1 Then Rows(iZeile).EntireRow. _
Delete
Next iZeile
End Sub
Gruss
Chris
Option Explicit
Sub doppelte()
Dim lloZeile As Long, liSpalte As Integer, lloStart As Long, lloDurchlauf As Long
lloStart = DeineStartZeile
liSpalte = DeineSpalte
For lloZeile = lloStart To Cells(Rows.Count, liSpalte).End(xlUp).Row
For lloDurchlauf = Cells(Rows.Count, liSpalte).End(xlUp).Row To lloStart Step -1
If Cells(lloZeile, liSpalte).Value = Cells(lloDurchlauf, liSpalte).Value And _
lloDurchlauf lloZeile Then
Rows(lloDurchlauf & ":" & lloDurchlauf).Delete Shift:=xlUp
End If
Next
Next
End Sub
Nach dem du lloStart und liSpalte angepasst hast, sollte es auch bei dir laufen.
Hilft das?
Ciao
Thorsten
Rows(lloDurchlauf & ":" & lloDurchlauf).Delete Shift:=xlUp
gegen diese Zeile
Cells(lloDurchlauf, liSpalte).Value = ""
aus.
Hilft das?
Ciao
Thorsten
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen