Как посчитать количество ФИО в Excel: от простых формул до автоматизации

Зачем считать ФИО в Excel и какие задачи это решает

Работа с базами данных, где хранятся фамилии, имена и отчества (ФИО), — рутинная задача для HR-специалистов, бухгалтеров и аналитиков. Часто требуется быстро узнать, сколько уникальных сотрудников в списке, сколько раз повторяется конкретная фамилия или как распределить людей по отделам. Вручную пересчитывать тысячи строк — неэффективно, поэтому Excel предлагает несколько инструментов для автоматизации этого процесса.

В этой статье разберём 5 способов подсчёта ФИО — от элементарных функций до продвинутых методов с Power Query и VBA. Вы узнаете, как избежать типичных ошибок (например, когда программа считает "Иванов Иван" и "Иванов Иван Петрович" как разных людей), как работать с неполными данными и как ускорить обработку больших таблиц (100 000+ строк).

Особое внимание уделим подсчёту ФИО с учётом регистра — это критично для баз, где "иванов" и "Иванов" могут быть разными записями (например, в юридических документах). Также разберём, как вытащить из полного ФИО только фамилию или инициалы для дальнейшего анализа.

Способ 1: Функция СЧЁТЕСЛИ для подсчёта конкретных фамилий

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

Формула выглядит так:

=СЧЁТЕСЛИ(диапазон; "Фамилия")

Где:

• 📌 диапазон — столбец с ФИО (например, A2:A1000).
• 🔍 "Фамилия" — искомая фамилия в кавычках (регистр важен!).

Пример: чтобы посчитать всех Петровых в столбце B, введите:

=СЧЁТЕСЛИ(B2:B500; "Петров")

Ограничения метода

Функция СЧЁТЕСЛИ не учитывает частичные совпадения по умолчанию. Например, если в ячейке записано "Иванов Иван Петрович", а вы ищете просто "Иванов", формула не сработает. Чтобы обойти это, используйте подстановочный знак *:

=СЧЁТЕСЛИ(B2:B500; "Иванов")

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

Способ 2: Подсчёт уникальных ФИО с помощью функции ЧАСТОТА

Если вам нужно узнать, сколько уникальных ФИО содержится в списке (например, для проверки дубликатов), используйте комбинацию функций ЧАСТОТА и ДСЧЁТ. Этот метод работает даже с большими массивами данных (до 1 млн строк).

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

1. Скопируйте столбец с ФИО в отдельный диапазон (например, D2:D500).
2. Удалите дубликаты: Данные → Удалить дубликаты.
3. Введите формулу массива:

   =ЧАСТОТА(диапазон_исходный; диапазон_уникальных)

   Например: =ЧАСТОТА(B2:B500; D2:D100) (завершите ввод Ctrl+Shift+Enter).

Результат — список уникальных ФИО и количество их повторений. Чтобы посчитать только количество уникальных записей, используйте:

=СЧЁТЕСЛИ(D2:D100; ">0")

Удалить лишние пробелы функцией СЖПРОБЕЛЫ

Привести текст к единому регистру (ПРОПНАЧ или НИЖНРЕГ)

Разбить ФИО на отдельные столбцы (если нужно анализировать только фамилии)

Проверить на опечатки с помощью условного форматирования-->

Пример с реальными данными

⚠️ Внимание: Функция ЧАСТОТА возвращает массив значений, поэтому после ввода формулы нажмите Ctrl+Shift+Enter (в новых версиях Excel — просто Enter). Если забыть это сделать, результат будет некорректным.

Способ 3: Разделение ФИО на компоненты для точного подсчёта

Часто ФИО записаны в одной ячейке в формате "Иванов Иван Петрович". Чтобы посчитать, например, только количество людей с именем "Иван", нужно сначала разделить ФИО на части. Для этого используйте функции:

• 🔪 ЛЕВСИМВ — извлекает фамилию (до первого пробела).
• 🔍 ПСТР + ПОИСК — вытаскивает имя или отчество.
• 📊 ТЕКСТРАЗД (в Excel 365) — разбивает текст по разделителю.

Пример формулы для извлечения фамилии (предполагаем, что ФИО записано как "Фамилия Имя Отчество"):

=ЛЕВСИМВ(A2; ПОИСК(" "; A2) - 1)

Для имени:

=ПСТР(A2; ПОИСК(" "; A2) + 1; ПОИСК(" "; A2; ПОИСК(" "; A2) + 1) - ПОИСК(" "; A2) - 1)

После разделения можно применять СЧЁТЕСЛИ к отдельным столбцам. Например, чтобы посчитать всех Иванов:

=СЧЁТЕСЛИ(Столбец_с_именами; "Иван")

Автоматизация с Power Query

Если данных много (тысячи строк), ручное разделение ФИО неэффективно. В этом случае используйте Power Query:

1. Выделите столбец с ФИО → Данные → Из таблицы/диапазона.
2. В редакторе Power Query выберите столбец → Разделить столбец → По разделителю (указывайте пробел).
3. Задайте имена новым столбцам ("Фамилия", "Имя", "Отчество").
4. Нажмите Закрыть и загрузить.

В одной ячейке ("Иванов Иван Петрович")

В трёх отдельных столбцах (Фамилия, Имя, Отчество)

Использую инициалы ("Иванов И.П.")

Другой вариант-->

Способ 4: Подсчёт ФИО с учётом регистра (точный поиск)

Стандартные функции Excel (СЧЁТЕСЛИ, ПОИСКПОЗ) не учитывают регистр. Если в вашей базе "Иванов" и "иванов" — разные записи (например, в юридических документах), используйте пользовательскую функцию на VBA или комбинацию из НАЙТИ и СУММПРОИЗВ.

Формула для точного подсчёта с учётом регистра:

=СУММПРОИЗВ(--(НАЙТИ("Иванов"; B2:B100) = 1))

Здесь:

• 🔎 НАЙТИ ищет точное совпадение (в отличие от ПОИСК, который игнорирует регистр).
• 📌 -- преобразует результат в 1 (если найдено) или 0 (если нет).
• ➕ СУММПРОИЗВ суммирует все единицы.

Для удобства создайте именованный диапазон для столбца с ФИО:

1. Выделите столбец → Формулы → Присвоить имя (например, "ФИО_список").
2. Используйте в формуле: =СУММПРОИЗВ(--(НАЙТИ("Иванов"; ФИО_список) = 1)).

⚠️ Внимание: Формулы массива (как СУММПРОИЗВ) могут замедлять Excel при работе с большими диапазонами (100 000+ строк). В этом случае лучше использовать Power Query или VBA.

Способ 5: Автоматизация с макросами (VBA)

Если вам регулярно приходится считать ФИО в больших базах, напишите простой макрос. Он позволит:

• 🤖 Подсчитывать уникальные ФИО за 1 клик.
• 📂 Экспортировать результаты в новый лист.
• 🔄 Обрабатывать данные с учётом регистра.

Пример кода для подсчёта уникальных ФИО:

Sub CountUniqueFIO()
Dim ws As Worksheet
Dim rng As Range, cell As Range
Dim dict As Object
Set dict = CreateObject("Scripting.Dictionary")

' Указываем лист и диапазон с ФИО
Set ws = ThisWorkbook.Sheets("Лист1")
Set rng = ws.Range("B2:B" & ws.Cells(ws.Rows.Count, "B").End(xlUp).Row)

' Заполняем словарь уникальными значениями
For Each cell In rng
If Not dict.Exists(cell.Value) Then
dict.Add cell.Value, 1
Else
dict(cell.Value) = dict(cell.Value) + 1
End If
Next cell

' Выводим результаты на новый лист
Sheets.Add.Name = "Результаты"
Range("A1").Value = "ФИО"
Range("B1").Value = "Количество"
Range("A2").Resize(dict.Count, 1).Value = Application.Transpose(dict.Keys)
Range("B2").Resize(dict.Count, 1).Value = Application.Transpose(dict.Items)
End Sub

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

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

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

При подсчёте ФИО в Excel пользователи часто сталкиваются с следующими проблемами:

Чтобы минимизировать ошибки, всегда проверяйте данные перед подсчётом:

1. Удалите пустые строки: Данные → Фильтр → отметьте пустые ячейки → удалите.
2. Проверьте на опечатки: используйте условное форматирование для выделения ячеек с нестандартными символами.
3. Разделите ФИО на отдельные столбцы (если нужно анализировать только фамилии или имена).

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

=СЧЁТЕСЛИ(Столбец_с_фамилиями; "Иванов*")

=СЧЁТЕСЛИМН(B2:B100; "Иванов*"; C2:C100; "Отдел продаж")

=СЧЁТЕСЛИ(B2:B100; "*О’~Коннор")

=ДЛСТР(A2)

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