Need to compare values in two colums and delete accordingly
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
wrote in message
ups.com...
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
|