Удаление одинаковых фамилий в Excel: 7 рабочих методов

Дублирующиеся фамилии в таблице Excel искажают аналитику, усложняют поиск уникальных записей и увеличивают размер файла. Если при попытке использовать функцию Удалить дубликаты через меню Данные система выдаёт ошибку или пропускает часть повторов — проблема чаще всего кроется в скрытых символах, регистре букв или некорректном выделении диапазона. Например, фамилии "Иванов" и "ИВАНОВ" Excel воспринимает как разные значения, если не настроена чувствительность к регистру.

В 80% случаев достаточно применить комбинацию условного форматирования и фильтра по цвету, чтобы выявить и удалить точные копии. Но для баз данных свыше 10 000 строк потребуются Power Query или формулы массива. Ниже разберём все методы — от простых до продвинутых, с учётом особенностей Excel 2010–2023 и Excel Online.

1. Быстрое удаление дубликатов через встроенную функцию

Самый очевидный способ — инструмент Удалить дубликаты, доступный в меню Данные → Работа с данными. Он подходит для таблиц до 5 000 строк, где фамилии расположены в одном столбце без дополнительных символов (пробелов, тире, точек).

Алгоритм действий:

• 📌 Выделите столбец с фамилиями (включая заголовок).
• 🔍 Перейдите на вкладку Данные → Удалить дубликаты.
• ✅ В окне подтверждения снимите все галочки, кроме столбца с фамилиями.
• 🗑️ Нажмите ОК — Excel оставит только уникальные значения.

⚠️ Внимание: Функция удаляет все повторяющиеся строки целиком, а не только дубли фамилий. Если в таблице есть другие данные (имена, телефоны), связанные с фамилией, они тоже будут стёрты. Для частичного удаления используйте методы из следующих разделов.

2. Удаление дубликатов с сохранением первой записи

Если нужно оставить первое вхождение каждой фамилии и удалить все последующие копии, используйте фильтр по цвету:

1. Выделите столбец с фамилиями.
2. Перейдите на вкладку Главная → Условное форматирование → Правила выделения ячеек → Повторяющиеся значения.
3. Выберите формат (например, красный текст) и нажмите ОК.
4. Вернитесь на вкладку Данные → Фильтр → отфильтруйте по красному цвету.
5. Выделите отфильтрованные строки (кроме первой) и удалите их.

Этот метод работает даже если фамилии записаны в разном регистре (например, "Петров" и "петров"). Для чувствительности к регистру используйте формулу из раздела 4.

Убедитесь, что в столбце нет пустых ячеек|Проверьте отсутствие скрытых символов (пробелов, неразрывных пробелов)|Сохраните резервную копию файла|Отсортируйте данные по фамилиям (по возрастанию)

-->

3. Удаление дубликатов с помощью Power Query (для больших таблиц)

Power Query (в Excel 2016+ называется Получить и преобразовать данные) позволяет обработать миллионы строк без зависаний. Метод подходит для баз данных с 50 000+ записей.

Инструкция:

1. Выделите таблицу → Данные → Из таблицы/диапазона (в Excel 2016–2019 или Получить данные → Из таблицы/диапазона в Excel 2021+).
2. В открывшемся окне Power Query выделите столбец с фамилиями → Главная → Удалить строки → Удалить дубликаты.
3. Нажмите Закрыть и загрузить → выберите Новый лист.

⚠️ Внимание: Power Query создаёт новую таблицу, не изменяя исходные данные. Если нужно заменить оригинал, скопируйте результаты обратно.

4. Формулы для выборочного удаления дубликатов

Если нужно удалить дубликаты с учётом регистра или по дополнительным условиям (например, только фамилии из определённого города), используйте комбинацию функций ЕСЛИ, СЧЁТЕСЛИ и ИНДЕКС.

Пример формулы для столбца B (фамилии) с выводом уникальных значений в столбец D:

=ЕСЛИОШИБКА(ИНДЕКС($B$2:$B$100; ПОИСКПОЗ(0; СЧЁТЕСЛИ($D$1:D1; $B$2:$B$100) + ЕСЛИ($B$2:$B$100=""; 1; 0); 0)); "")

Как это работает:

• 🔢 СЧЁТЕСЛИ подсчитывает вхождения каждой фамилии в столбце D.
• 📍 ПОИСКПОЗ находит первую фамилию, которая ещё не записана в D.
• 📋 ИНДЕКС извлекает это значение.

⚠️ Внимание: Формулу нужно вводить как формулу массива (в Excel 2019+ просто нажмите Enter, в Excel 2010–2016 — Ctrl+Shift+Enter).

Если фамилии дублируются, но связаны с разными данными (например, омонимы с разными телефонами), используйте сводные таблицы или функцию УНИК (в Excel 365 и Excel 2021).

=УНИК(B2:B100)

Sub DeleteDuplicateSurnames()
Dim rng As Range
Set rng = Range("B2:B" & Cells(Rows.Count, "B").End(xlUp).Row)
rng.RemoveDuplicates Columns:=1, Header:=xlNo
End Sub