Forum Discussion

Copper Contributor

Oct 28, 2020

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 ...

MVP

Oct 28, 2020

RO-FF

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