Removing duplicates

Hi


Within my spreadsheet i have a column of data that changes in size every day. This column of data often includes repeated information that I dont need...

What i am looking for is a way to look at the column of data containing the duplicates and in another sheet paste the refined column...

So if you look below

personnel_id results required
test1 test1
test1 test2
test1 test3
test2 test4
test2 test5
test3 test6
test4
test4
test4
test4
test4
test5
test5
test6
test6
test6
test6


Any suggestions on how to achieve this would be great...


Thanks

Nuno

... me! Here is something that works quite nicely for me. There may be a neater way but hey it works!

Dim N 'number of rows
Dim i 'row number of lookup
Dim j 'row number of search
Dim x 'number of destinct
Dim y 'duplicate toggle

x = 1
N = 1

'count the number of non blank rows
While Sheets("sheet1").Cells(N, 1).Value <> ""
N = N + 1
Wend

'search for duplicates
For i = 1 To N
strLkup = Sheets("sheet1").Cells(i, 1).Value
y = 0 'set to 0 for no duplicate found
For j = 1 To i
strSrch = Sheets("sheet1").Cells(j, 2).Value
If strLkup = strSrch Then
y = 1 'duplicates found
Else
End If
Next

'log the destinct values
If y = 0 Then
Sheets("sheet1").Cells(x, 2).Value = strLkup
x = x + 1
End If

Next