Deleting Duplicates

(New Member and first reply to a thread)

Do you know of a way of Deleting duplicate records, using Excel 2003.

The raw data is in the form of a text string. For example:

Vehicle 123456_F_AB 280
Vehicle 123456_R_AB 147

So when I do a count of these cells, I obtain a count of 2. '=Count(A1)'. How can I easily exclude 1 of the duplicates (123456). It needs to be a user friendly solution as other people may have to run this when I'm on leave? Thanks in advance if you know the answer.


Regards
David R.

I tried the coding you supplied but, I was unable to make it work. This was due to lack of knowledge on my use of VB. I tried pasting this into a module and exporting it. Then going to Tools > Macro > Macros but unable to make it work. I wonder if the problem description I originally supplied was too vague.

However, a work collegue copied and pasted this one into a module for me and this seemed to work.

Sub DeleteDuplicates()
Dim i As Integer
Dim j as Integer

i = 3
j = 1

Do
If Cells(i, j) = Cells(i - 1, j) Then
Rows(i).Select
Selection.Delete
i = i - 1
End If
i = i + 1
Loop Until Cells(i, j) = ""

End Sub


It's been an enjoyable learning curve doing this. Thanks for your help.