How to remove duplicate values from one cell to another

[kevin2828]

I want to remove values from one duplicate cell to another
For example :
Column A Column B

1506	1670	Duplicate
1506	1670	Duplicate

I want to remove duplicate value from Column B and column A value remain same.

Please help

 

[JLGWhiz]

Sub t()
Dim i As Long
    With ActiveSheet
        For i = .Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1
            If .Cells(i, 2).Value = .Cells(i - 1, 2).Value Then
                 .Cells(i, 2).ClearContents
            End If
        Next
    End With
End Sub

 

[kevin2828]

Sub t()
Dim i As Long
    With ActiveSheet
        For i = .Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1
            If .Cells(i, 2).Value = .Cells(i - 1, 2).Value Then
                 .Cells(i, 2).ClearContents
            End If
        Next
    End With
End Sub

It works like a charm.... Thank you.

 

[JLGWhiz]

It works like a charm.... Thank you.

You're welcome,
regards, JLG