exel macro to eliminate duplicate record

[FSK- in montreal]

It's been quite a few years since I've had to use macros.
But now I'm stuck. I have several large worksheets that
are the result of merged databases and I would like to use
a macro to eliminate duplicate records. This is following
a sort where I can clearly see one row and the one beneath
it has the duplicate data.

Any suggestions please!!!! Thank you

 

[Tom Ogilvy]

Sub DeleteDups()
do while ActiveCell <> ""
if activeCell.Value = activecell.Offset(1,0).Value then
ActiveCell.Offset(1,0).EntireRow.Delete
else
ActiveCell.Offset(1,0).Select
end if
Loop
End Sub

Select the first cell in the column you want to check and run the macro.

Untested, but should work. Test it on a copy of your workbook.

 

[FSK - in montreal]

Thanks Tom!!

-----Original Message-----
Sub DeleteDups()
do while ActiveCell <> ""
if activeCell.Value = activecell.Offset(1,0).Value then
ActiveCell.Offset(1,0).EntireRow.Delete
else
ActiveCell.Offset(1,0).Select
end if
Loop
End Sub

Select the first cell in the column you want to check and run the macro.

Untested, but should work. Test it on a copy of your workbook.

--
Regards,
Tom Ogilvy




.

 

[Patrick Molloy]

There's really no need to make cells active this way - unless you like to
see the screen updating.

Sub Delete_Row()

Dim target as range
set target = activecell

Do

If Target.Value = Target.Offset(1, 0).Value Then
Target.Offset(1, 0).EntireRow.Delete
Else

Ste target = target.Offset(1, 0)

End If

End Sub