Как в Excel выбрать повторяющиеся значения и вынести их в отдельный список — 7 рабочих методов

=СУММПРОИЗВ(--(ТОЧНО($A$2:$A$100;A2)))>1

Преимущества Power Query для поиска дублей:

• ⚡ Обрабатывает миллионы строк без тормозов.
• 🔄 Автоматически обновляет результаты при изменении исходных данных.
• 📤 Позволяет экспортировать дубли в отдельный файл (.csv, .xlsx).
• 🛠 Гибкие настройки: можно искать дубли по одному или нескольким столбцам.

Пошаговая инструкция:

1. Выделите исходную таблицу и нажмите Данные → Из таблицы/диапазона (в Excel 2016–2019) или Получить данные → Из таблицы/диапазона (в Excel 365).
2. В открывшемся редакторе Power Query выделите столбец, где ищете дубли.
3. Перейдите на вкладку Главная → Группировка.
4. В настройках группировки выберите:
   • Столбец: тот, где ищете дубли;
   • Новое имя столбца: например, "Количество повторений";
   • Операция: Count Rows (подсчёт строк).

Пример кода на языке M (для ручного редактирования запроса):

let
Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
Группировка = Table.Group(Источник, {"Email"}, {{"Count", each Table.RowCount(_), type number}}),
ФильтрДублей = Table.SelectRows(Группировка, each [Count] > 1)
in
ФильтрДублей

5. Макросы VBA: автоматизация для опытных пользователей

Если вам регулярно приходится искать дубли в Excel, имеет смысл автоматизировать процесс с помощью макросов VBA. Этот метод требует базовых знаний программирования, но позволяет создавать гибкие решения под конкретные задачи.

Пример макроса для копирования дублей в новый лист:

Sub FindDuplicates()
Dim wsSource As Worksheet, wsResult As Worksheet
Dim rng As Range, cell As Range
Dim dict As Object
Set dict = CreateObject("Scripting.Dictionary")

' Создаём новый лист для результатов
Set wsSource = ThisWorkbook.Sheets("Лист1") ' исходный лист
Set wsResult = ThisWorkbook.Sheets.Add(After:=wsSource)
wsResult.Name = "Дубли"

' Определяем диапазон данных (столбец A)
Set rng = wsSource.Range("A2:A" & wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row)

' Заполняем словарь и ищем дубли
For Each cell In rng
If dict.exists(cell.Value) Then
dict(cell.Value) = dict(cell.Value) + 1
cell.Copy Destination:=wsResult.Cells(wsResult.Rows.Count, "A").End(xlUp).Offset(1, 0)
Else
dict.Add cell.Value, 1
End If
Next cell

' Добавляем заголовок
wsResult.Range("A1").Value = "Повторяющиеся значения"
MsgBox "Найдено " & dict.Count - 1 & " уникальных дублей", vbInformation
End Sub

Как использовать этот макрос:

1. Нажмите Alt+F11, чтобы открыть редактор VBA.
2. Вставьте код в новый модуль (Insert → Module).
3. Запустите макрос нажатием F5 или через меню Макросы.

⚠️ Внимание: Перед запуском макроса сохраните файл в формате .xlsm (с поддержкой макросов) и убедитесь, что в настройках безопасности разрешено выполнение скриптов (Файл → Параметры → Центр управления безопасностью → Параметры центра... → Включить все макросы).

6. Сводные таблицы: анализ частоты повторений

Если вам нужно не только найти дубли, но и проанализировать, как часто повторяются значения, используйте сводные таблицы. Этот метод подходит для статистического анализа данных (например, выявления самых частых ошибок в логах или популярных товаров в заказах).

Инструкция:

1. Выделите исходную таблицу (включая заголовки).
2. Нажмите Вставка → Сводная таблица.
3. В настройках сводной таблицы перетащите столбец с данными (например, "Email") в область Строки.
4. Тот же столбец перетащите в область Значения — Excel автоматически посчитает количество вхождений каждого значения.
5. Отсортируйте результаты по убыванию, чтобы увидеть самые частые дубли.

Пример результата:

Email	Количество повторений
client@example.com	12
user123@gmail.com	8
test@yandex.ru	5
admin@site.com	3

Чтобы экспортировать дубли в отдельный лист:

• 📋 Скопируйте строки сводной таблицы с количеством повторений >1.
• 🔍 Используйте функцию ВПР или ИНДЕКС/ПОИСКПОЗ, чтобы извлечь исходные данные для этих дублей.

7. Специализированные надстройки для работы с дублями

Если вам регулярно приходится очищать данные от дублей, рассмотрите специализированные надстройки для Excel. Они расширяют стандартные возможности программы и автоматизируют рутинные задачи.

Популярные надстройки для работы с дублями:

• 🛠 Kutools for Excel — включает инструмент Select Duplicate & Unique Cells, который позволяет выделять, удалять или копировать дубли в один клик. Поддерживает поиск по нескольким столбцам.
• 📊 Ablebits — предлагает функцию Duplicate Remover с гибкими настройками (поиск с учётом регистра, игнорирование пробелов и т. д.).
• 🔍 ASAP Utilities — бесплатная надстройка с инструментами для поиска и обработки дублей, включая удаление пустых строк и нормализацию данных.

Пример работы с Kutools for Excel:

1. Установите надстройку и откройте вкладку Kutools в Excel.
2. Выделите диапазон данных и нажмите Select → Select Duplicate & Unique Cells.
3. В открывшемся окне выберите:
   • Duplicates (все повторяющиеся значения);
   • All duplicates (Including 1st one) (включая первые вхождения);
   • или Unique values only (только уникальные).

⚠️ Внимание: Перед использованием надстроек проверьте их совместимость с вашей версией Excel. Некоторые инструменты (например, Ablebits) требуют лицензии для работы с большими файлами (>10 000 строк).

FAQ: Ответы на частые вопросы