Более простой, чем Вы мог бы думать:
Excel 2007 и 2010:
Используйте Remove Duplicates
пункт меню под заголовком Данных.
Excel 2003:
Простой способ:
Твердый путь:
Запишите макрос со следующим кодом:
'Remove duplicates from sorted list
Sub getDistinct()
Do While ActiveCell.Value <> ""
If ActiveCell.Value = ActiveCell.Offset(1, 0).Value Then
ActiveCell.Select
Selection.Delete Shift:=xlUp
Else
ActiveCell.Offset(1, 0).Activate
End If
Loop
End Sub
Это дает Вам Ваш отличный список. Можно хотеть скопировать список в другой лист сначала.