Как сравнить два столбца с фамилиями в Excel: от простых формул до Power Query

Power Query автоматически обрабатывает пробелы и регистр, а также позволяет добавлять дополнительные преобразования (например, удалять отчества или инициалы). Главное преимущество — скорость: даже 100 000 строк обрабатываются за секунды.

Удалить пробелы (Текст.Обрезать)

Привести к единому регистру (Текст.ВерхнийРегистр)

Разделить ФИО на отдельные столбцы (Разделить столбец → По разделителю)

Удалить дубликаты (Главная → Удалить строки → Удалить дубликаты)-->

Метод 4: Сводные таблицы для анализа совпадений

Сводные таблицы полезны, когда нужно не только найти совпадения, но и посчитать их количество или сгруппировать по категориям. Например, вы можете узнать, сколько фамилий повторяется в обоих списках, или вывести топ-10 самых частых фамилий.

Инструкция:

1. Создайте новый столбец с формулой объединения:

   =ЕСЛИОШИБКА(ПОИСКПОЗ(A2; $B$2:$B$100; 0); "Уникальная"; "Совпадение")

   Это добавит метку "Совпадение" или "Уникальная" для каждой фамилии.

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

Преимущество этого метода — интерактивность. Вы можете добавлять фильтры (например, показывать только фамилии длиной более 6 символов) или группировать данные по первой букве.

Метод 5: VBA-макрос для автоматического сравнения (для продвинутых)

Если вам приходится сравнивать столбцы с фамилиями регулярно, имеет смысл автоматизировать процесс с помощью VBA. Ниже приведён макрос, который:

• Сравнивает два столбца (например, A и B).
• Выделяет совпадения зелёным, уникальные в первом столбце — жёлтым, уникальные во втором — красным.
• Создаёт отдельный лист с отчётом.

Код макроса:

Sub CompareNames()
Dim ws As Worksheet
Dim lastRowA As Long, lastRowB As Long
Dim i As Long, j As Long
Dim dict As Object
Set dict = CreateObject("Scripting.Dictionary")

' Создаём словарь фамилий из столбца B
lastRowB = Cells(Rows.Count, "B").End(xlUp).Row
For i = 2 To lastRowB
dict(Cells(i, 2).Value) = 1
Next i

' Сравниваем со столбцом A
lastRowA = Cells(Rows.Count, "A").End(xlUp).Row
For j = 2 To lastRowA
If dict.exists(Cells(j, 1).Value) Then
Cells(j, 1).Interior.Color = RGB(0, 255, 0) ' Зелёный - совпадение
Else
Cells(j, 1).Interior.Color = RGB(255, 255, 0) ' Жёлтый - уникальная в A
End If
Next j

' Выделяем уникальные во втором столбце
For i = 2 To lastRowB
If Not Application.WorksheetFunction.CountIf(Range("A:A"), Cells(i, 2).Value) Then
Cells(i, 2).Interior.Color = RGB(255, 0, 0) ' Красный - уникальная в B
End If
Next i

' Создаём отчёт на новом листе
Sheets.Add.Name = "Отчёт о сравнении"
Range("A1").Value = "Совпадения:"
Range("A2").Value = Application.WorksheetFunction.CountIf(Range("A:A"), "<>") - _
Application.WorksheetFunction.CountIf(Range("A:A"), "") - _
Application.WorksheetFunction.CountIf(Range("A:A"), "Уникальная")
Range("B1").Value = "Уникальные в A:"
Range("B2").Value = Application.WorksheetFunction.CountIf(Range("A:A"), "Уникальная")
Range("C1").Value = "Уникальные в B:"
Range("C2").Value = Application.WorksheetFunction.CountIf(Range("B:B"), "<>") - _
Application.WorksheetFunction.CountIf(Range("B:B"), "") - _
Application.WorksheetFunction.CountIf(Range("A:A"), Range("B:B"))
End Sub

Чтобы использовать макрос:

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

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

Типичные ошибки и как их избежать

Даже опытные пользователи Excel допускают ошибки при сравнении фамилий. Вот самые распространённые:

• 🚫 Игнорирование регистра. Функции СЧЁТЕСЛИ и ВПР не чувствительны к регистру. Если ваша задача — найти точные совпадения (включая заглавные буквы), используйте ТОЧНОЕ() или ПОИСКПОЗ с дополнительной проверкой.
• 🚫 Пропущенные пробелы или непечатаемые символы. Иногда в данных встречаются символы переноса строки (CHAR(10)) или табуляции (CHAR(9)). Чтобы их удалить, используйте:

  =ПОДСТАВИТЬ(ПОДСТАВИТЬ(A2; СИМВОЛ(10); ""); СИМВОЛ(9); "")

• 🚫 Сравнение неотсортированных данных. Если фамилии в столбцах не отсортированы, функции вроде ВПР могут пропускать совпадения. Всегда сортируйте данные перед сравнением или используйте ПОИСКПОЗ с параметром 0 (точный поиск).

Ещё одна частая проблема — дубликаты внутри одного столбца. Если фамилия повторяется в столбце A 3 раза, а в столбце B — 2 раза, стандартные методы покажут, что есть совпадения, но не укажут на разницу в количестве. Чтобы это отследить, используйте СЧЁТЕСЛИ с учётом повторений:

=СЧЁТЕСЛИ($A$2:$A$100; A2) - СЧЁТЕСЛИ($B$2:$B$100; A2)

⚠️ Внимание: Если вы работаете с фамилиями на кириллице, убедитесь, что в настройках региональных стандартов Windows выбрана русская раскладка. В противном случае функции вроде ПРОПИСН() могут неправильно обрабатывать буквы "ё", "й", "ъ".

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

=ЕСЛИ(НЕ(ЕОШИБКА(ПОИСК(" "&A2&" "; " "&B2&" "))); "Есть"; "Нет")

=ЕСЛИ(РАССТОЯНИЕ.ЛЕВЕНШТЕЙН(A2; B2) <= 2; "Похоже"; "Не похоже")

Sub ExportResults()
Dim newWorkbook As Workbook
Set newWorkbook = Workbooks.Add
Range("C2:C100").Copy newWorkbook.Sheets(1).Range("A1")
newWorkbook.SaveAs "C:\Temp\Результаты сравнения.xlsx"
newWorkbook.Close
End Sub

=ЕСЛИОШИБКА(СЧЁТЕСЛИ($B$2:$B$100; A2); 0)