remove duplicates cells not delete the row vba

**lupingamon** · 05-30-2014, 04:56 AM

I have scroll a column and clear (not delete) the content of those cells that they are repeated. not delete the row

I tried with this code but doesn't work, why? con someone help me? thnx

  
Sub RemoveDuplicates()
    
        Dim i As Integer
        Dim j As Integer
            
            For i = 1 To Range("d100").End(xlUp).Column
            
            If i = j Then
    'just clear the duplicate cell...
            Cells(i, 1).ClearContents
    End If
    
    
   Next
    
   
    End Sub

**kalak** · 05-30-2014, 05:55 AM

should your code be something like this?

Sub RemoveDuplicates()
    
Dim i As Integer
Dim j As Integer
            
For i = 1 To Range("d100").End(xlUp).Row
        For j = i + 1 To Range("d100").End(xlUp).Row
            If Cells(i, "d") = Cells(j, "d") Then
    'just clear the duplicate cell...
                Cells(j, "d").ClearContents
            End If
       Next j
Next i
End Sub