Delete rows where colums match

[Del_F]

Hi,
I have 2 columns (A & B) of text data, and I want to delete every row
where the same term appears in both columns. So... for each row (n),
delete the row only if An and Bn match.
Any help much appreciated.
Thanks.

 

[Del_F]

Hi,
I have 2 columns (A & B) of text data, and I want to delete every row
where the same term appears in both columns. So... for each row (n),
delete the row only if An and Bn match.
Any help much appreciated.
Thanks.

Okay, I figured it out, using some previously posted code:

Sub Redundancy()
Dim iLastRow As Long
Dim i As Long

iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = iLastRow To 2 Step -1
If Not IsError(Application.Match(Cells(i, "A").Value, _
Range("B:B"), 0)) Then
Cells(i, "A").Delete Shift:=xlUp
End If
Next i

End Sub

D.

 

[Joel]

Sub test2()
RowCount = 1
Do While Not IsEmpty(Cells(RowCount, "A"))
If Cells(RowCount, "A") = Cells(RowCount, "B") Then
Cells(RowCount, "A").EntireRow.Delete
Else
RowCount = RowCount + 1
End If
Loop
End Sub

 

[Del_F]

Thanks Joel,
Nice solution - works perfectly!
D.