excel 2003 удалить дубликаты

Ответ от Зибин[гуру]
для удаления дубликатов и вытаскивания из списка уникальных (неповторяющихся) элементов можно использовать Расширенный фильтр из меню (вкладки) Данные
...в новом окне --
Выделяем наш список в Исходный диапазон
Ставим переключатель в положение Скопировать результат в другое место и указываем пустую ячейку.
Включаем (самое главное!) флажок Только уникальные записи и жмем ОК.
Ф.И.О. сначала разделить (половину списка) на столбцы -- Функция на VBA
. Для этого открываем редактор Visual Basic:
- меню Сервис - Макрос - Редактор Visual Basic
Вставляем новый модуль (меню Insert - Module) и копируем туда текст вот этой пользовательской функции:

1 Function Substring(Txt, Delimiter, n) As String
2 Dim x As Variant
3 x = Split(Txt, Delimiter)
4 If n > 0 And n - 1 <= UBound(x) Then
5 Substring = x(n - 1)
6 Else
7 Substring = ""
8 End If
9 End Function
Теперь можно найти ее в списке функций в категории Определенные пользователем и использовать со следующим синтаксисом:
=SUBSTRING(Txt; Delimeter; n)
где
Txt - адрес ячейки с текстом, который делим
Delimeter - символ-разделитель (пробел, запятая и т.д.)
n - порядковый номер извлекаемого фрагмента
затем функция СЦЕПИТЬ (в нужном порядке)