Forum Discussion
RO-FF
Oct 28, 2020Copper Contributor
Problem mit Entfernung von Duplikaten
Hallo, ich habe eine Tabelle mit diverseren Begriffen (1 pro Zelle), die sich teilw. wiederholen und nicht miteinander zusammenhängen - anbei ein Beispiel. Ich würde gerne mit einer Funktion ...
HansVogelaar
Oct 28, 2020MVP
You could run this macro:
Sub ClearDups()
Dim rng As Range
Dim cel As Range
Application.ScreenUpdating = False
Set rng = Selection ' or ActiveSheet.UsedRange
For Each cel In rng
If Application.CountIf(rng, cel.Value) > 1 Then
cel.ClearContents
End If
Next cel
Application.ScreenUpdating = True
End Sub