View Single Post
  #2   Report Post  
Old May 20th 07, 12:54 PM posted to microsoft.public.excel.programming
Norman Jones Norman Jones is offline
external usenet poster
First recorded activity by ExcelBanter: Jul 2006
Posts: 5,302
Default Compare columns, delete the rows that DO match.

Hi RyGuy,

Try changing:

If IsError(Application.Match(Cells(i, "A").Value, _


If Not IsError(Application.Match(Cells(i, "A").Value, _


"ryguy7272" wrote in message
The following code was posted to the programming DG a while back:

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 IsError(Application.Match(Cells(i, "A").Value, _
Range("B:B"), 0)) Then
Cells(i, "A").Delete Shift:=xlUp
End If
Next i

End Sub

I was playing with it and trying to get it to delete the rows (in column
'A') that DO match. It should be fairly simple, but I just can't figure
out right now. I thought I could keep the code mostly the same, but
of the nature of the Match function, I am beginning to think that it may
require something radically different. Can someone please offer some