Hey everyone, I need to write a macro that checks if cell a2 is equal to
cell a3, and if so, deletes the entire row (the one that a2 is part
of).
I need this to run down about 1000 cells and continue to check and
delete, so i need it to be something like
if a2=a3 then 2:2 delete, if a3=a4, then 3:3 delete and so on, but is
there a way to automate this so you can assign the macro to a button,
and when you click it it goes through the list checking and deleting
rows?
Thanks guys


--
carlito_1985
------------------------------------------------------------------------
carlito_1985's Profile: http://www.excelforum.com/member.php...o&userid=21390
View this thread: http://www.excelforum.com/showthread...hreadid=399360

Assuming your data is the range A1:A1000:

Sub DeleteRow

For i = 1000 to 1 Step-1
If Cells(i,"A")=Cells(i,"A").offset(-1,0) then
Cells(i,"A").EntireRow.Delete
End if
Next

End sub


--
davidm
------------------------------------------------------------------------
davidm's Profile: http://www.excelforum.com/member.php...o&userid=20645
View this thread: http://www.excelforum.com/showthread...hreadid=399360

If you are not sure of the number of rows in Column A, use:

Sub DeleteRow2()

numRows = Range("a65536").End(xlUp).row

For i = numRows to 1 Step-1
If Cells(i,"A")=Cells(i,"A").offset(-1,0) then
Cells(i,"A").EntireRow.Delete
End if
Next

End sub


--
davidm
------------------------------------------------------------------------
davidm's Profile: http://www.excelforum.com/member.php...o&userid=20645
View this thread: http://www.excelforum.com/showthread...hreadid=399360