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

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

"FSK- in montreal" wrote in message
...
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

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

"FSK- in montreal"
wrote in message
...
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


.

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

Loop While target.value< ""

End Sub



--
Patrick Molloy
Microsoft Excel MVP
---------------------------------
I Feel Great!
---------------------------------
"Soo Cheon Jheong" wrote in message
...
Try

Sub Delete_Row()

Do

If ActiveCell.Value = ActiveCell.Offset(1, 0).Value Then
ActiveCell.Offset(1, 0).EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If

Loop While ActiveCell < ""

End Sub

__