Compare two cells, and deletes on if duplicate

[miketran]

I have a simple problem looking for a simple solution.

I want to compare two columns, A and B, and delete the A cells that are equal to the B cells...I have 3000 rows...

If Cell A1 = B1, Then Delete A1, next row...

Thanks for any help you can give me on this!

 

[Momentman]

Here's one way

Sub DeleteColumnA2()
    Dim I As Integer
    For I = 1 To Range("A" & Rows.Count).End(xlUp).Row
        If Cells(I, "A").Value = Cells(I, "B").Value Then
            Cells(I, "A").Value = ""
        End If
    Next I
End Sub

it sets the cell in column A to blank when the value is equal to that in column B

 

[abmati]

You need VBA to do this. However you can do this by using the following formula in C1 cell and copy it to C2:C3000. Then filter column "C" with "Duplicate" and clear the values of "A" column.

=IF(COUNTIF($B$1:$B$3000,$A1)>0,"Duplicate","No Duplicate")

Regards,

A.B. Mati
Doha, Qatar

 

[miketran]

Excellent! The VBA method worked perfectly! Thank you!