On 15 Aug, 15:52, Del_F wrote:
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.