Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Compare columns, delete the rows that DO match.
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 cant figure it out right now. I thought I could keep the code mostly the same, but because of the nature of the Match function, I am beginning to think that it may require something radically different. Can someone please offer some guidance? TIA!! -- RyGuy |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Compare columns, delete the rows that DO match.
Hi RyGuy,
Try changing: If IsError(Application.Match(Cells(i, "A").Value, _ to If Not IsError(Application.Match(Cells(i, "A").Value, _ --- Regards, Norman "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 it out right now. I thought I could keep the code mostly the same, but because of the nature of the Match function, I am beginning to think that it may require something radically different. Can someone please offer some guidance? TIA!! -- RyGuy |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Compare columns, delete the rows that DO match.
Don't know why I didn't see that before.......
Yet another lesson learned!!! -- RyGuy "Norman Jones" wrote: Hi RyGuy, Try changing: If IsError(Application.Match(Cells(i, "A").Value, _ to If Not IsError(Application.Match(Cells(i, "A").Value, _ --- Regards, Norman "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 it out right now. I thought I could keep the code mostly the same, but because of the nature of the Match function, I am beginning to think that it may require something radically different. Can someone please offer some guidance? TIA!! -- RyGuy |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Compare 2 columns and delete duplicate text | Excel Worksheet Functions | |||
Compare cells and copy columns after match | Excel Worksheet Functions | |||
compare rows for a match and sum the matches | Excel Worksheet Functions | |||
How to compare two columns of data to make sure they match | Excel Worksheet Functions | |||
Want to compare two columns and then fill with data from the match | Excel Worksheet Functions |