Need to compare values in two colums and delete accordingly

[[email protected]]

In a row, if column A and column C have the same value, I need to
delete that row and then loop through to the end of the spreadsheet.

Can anyone assist?

Thank you

[Tom Ogilvy]

lastrow = cells(rows.count,1).end(xlup).row
for i = lastrow to 1 step -1
if cells(i,"A").Value = cells(i,"C").Value then
rows(i).Delete
end if
Next


--
Regards,
Tom Ogilvy


<[email protected]> wrote in message
news:[email protected]...
> In a row, if column A and column C have the same value, I need to
> delete that row and then loop through to the end of the spreadsheet.
>
> Can anyone assist?
>
> Thank you
>

[Tim Williams]

Something like this (untested) should work. Adjust loop limits to suit.

dim i as long
with thisworkbook.sheets("sheetname")
for i = 1000 to 1 step -1

if .cells(i,1).value<>"" and .cells(i,1).value = .cells(i,3).value
then
.rows(i).delete
end if

next i
end with


Tim

--
Tim Williams
Palo Alto, CA


<[email protected]> wrote in message
news:[email protected]...
> In a row, if column A and column C have the same value, I need to
> delete that row and then loop through to the end of the spreadsheet.
>
> Can anyone assist?
>
> Thank you
>