Snasui Excel Forum

Code: Select all

Public Sub Dup()
    Dim c As Range, rall As Range
    Dim N As Long
    For Each c In Range("A1", Range("A1").End(xlToRight))
        Set rall = Range(c, c.End(xlDown))
        For N = rall.Count To 1 Step -1
            If Application.CountIf(rall, rall(N).Value) > 1 Then
                rall(N).Value = "X"
            End If
        Next N
    Next c
End Sub