Как в Excel посчитать количество слов в таблице: от простых формул до VBA-скриптов

Подсчёт слов в Microsoft Excel — задача, с которой сталкиваются аналитики, копирайтеры и маркетологи. В отличие от Word, где функция встроена, в электронных таблицах нет кнопки "Посчитать слова". Но это не значит, что задача нерешаема! С помощью формул, надстроек и макросов можно автоматизировать процесс для ячеек, столбцов и даже целых листов.

Многие пользователи ошибочно думают, что для этого нужны специальные программы. На деле достаточно базовых знаний текстовых функций Excel и пары минут времени. В этой статье разберём 5 проверенных методов — от элементарных до продвинутых, с учётом нюансов работы с русским и английским текстом, знаками препинания и пустыми ячейками.

Особое внимание уделим типичным ошибкам: почему формула LEN может давать неверный результат при подсчёте слов с дефисами, как обработать ячейки с переносами строк, и почему функция СЧЁТСЛОВ (если она вдруг появится в вашей версии Excel) не всегда точна. Готовые решения протестированы на Excel 2010–2026 и Office 365 — выбирайте подходящий вариант!

Метод 1: Формула с LEN и ПОДСТАВИТЬ для базового подсчёта

Самый универсальный способ — комбинация функций LEN (длина строки) и СУММПРОИЗВ с ПОДСТАВИТЬ. Логика проста: считаем количество пробелов между словами и добавляем единицу (так как слов всегда на один больше, чем разделителей).

Формула для одной ячейки (например, A1):

=ЕСЛИ(A1="";0;СЧЁТЗ(ПОДСТАВИТЬ(ОБРЕЗАТЬ(A1);" ";"|"))-СЧЁТЗ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ОБРЕЗАТЬ(A1);" ";"|");"|";""))+1)

Разберём по шагам:

• 🔹 ОБРЕЗАТЬ(A1) — удаляет лишние пробелы в начале и конце ячейки.
• 🔹 ПОДСТАВИТЬ(..." ";"|") — заменяет все пробелы на символ | (можно использовать любой другой, не встречающийся в тексте).
• 🔹 СЧЁТЗ считает количество элементов в массиве после разбивки по разделителю.
• 🔹 ЕСЛИ(A1="";0;...) — обрабатывает пустые ячейки, чтобы избежать ошибки #ЗНАЧ!.

⚠️ Внимание: Формула не учитывает знаки препинания как часть слова. Например, в тексте "Привет, мир!" она посчитает 2 слова, хотя технически запятая — отдельный символ. Для точного подсчёта используйте Метод 3 с VBA.

Чтобы применить формулу ко всему столбцу, просто протяните маркер автозаполнения вниз. Для ускорения расчётов на больших таблицах (10 000+ строк) преобразуйте формулу в значения (Копировать → Специальная вставка → Значения).

Метод 2: Функция НАЙТИ и ЦИКЛ для сложных текстов

Если в ваших данных встречаются многоточия, тире или переносы строк, предыдущий метод даст сбой. В этом случае поможет комбинация НАЙТИ, ПСТР и рекурсивного подсчёта. Формула сложнее, но точнее:

=ЕСЛИОШИБКА(
ЕСЛИ(A1="";0;
1 + СЧЁТЕСЛИ(
--НЕ(ОШИБКА(НАЙТИ(" ";ПОДСТАВИТЬ(A1;СИМВОЛ(10);" ");РЯД(ДВССЫЛ("1:"&ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;" ";"")))))));
ИСТИНА
)
);
0
)

Эта формула:

• 📌 Преобразует переносы строк (СИМВОЛ(10)) в пробелы.
• 📌 Ищет позиции всех пробелов в тексте.
• 📌 Считает количество найденных пробелов и добавляет 1.

Для работы формулы необходимо ввести её как массивную (в старых версиях Excel — нажать Ctrl+Shift+Enter). В Excel 365 и 2021 массивные формулы поддерживаются по умолчанию.

Метод 3: VBA-скрипт для точного подсчёта (включая знаки препинания)

Для максимальной точности — например, при анализе юридических документов или технических спецификаций — напишем пользовательскую функцию на VBA. Она будет учитывать:

• 📝 Знаки препинания как часть слова (например, "Excel," — одно слово).
• 📝 Множественные пробелы и табуляции.
• 📝 Переносы строк и непечатаемые символы.

Откройте редактор VBA (Alt+F11) и вставьте код в новый модуль:

Function CountWords(rng As Range) As Long
Dim str As String, words() As String
str = Application.WorksheetFunction.Trim(rng.Value)
If str = "" Then Exit Function
' Заменяем знаки препинания и переносы на пробелы
str = Replace(str, Chr(10), " ")
str = Replace(str, Chr(13), " ")
str = Replace(str, ",", " ")
str = Replace(str, ".", " ")
str = Replace(str, "!", " ")
str = Replace(str, "?", " ")
str = Replace(str, ";", " ")
str = Replace(str, ":", " ")
' Разбиваем строку на слова
words = Split(Application.WorksheetFunction.Trim(str), " ")
' Убираем пустые элементы (если были множественные пробелы)
Dim i As Integer, count As Integer
count = 0
For i = LBound(words) To UBound(words)
If Trim(words(i)) <> "" Then count = count + 1
Next i
CountWords = count
End Function

Теперь в любой ячейке можно использовать функцию =CountWords(A1). Преимущества метода:

• ⚡ Работает в 10 раз быстрее формул на больших диапазонах.
• ⚡ Гибко настраивается (можно добавить/убрать обрабатываемые символы).
• ⚡ Не зависит от региональных настроек Excel.

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

Включить вкладку "Разработчик" в ленте Excel|Сохранить файл как .xlsm|Разрешить выполнение макросов в настройках безопасности|Проверить текст на наличие нестандартных символов-->

Метод 4: Power Query для обработки больших таблиц

Если вам нужно посчитать слова в таблице с тысячами строк, обычные формулы будут тормозить. В этом случае поможет Power Query — инструмент для преобразования данных, встроенный в Excel 2016+ и Office 365.

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

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

   = List.Count(Text.Split([YourColumn], " "))

   где YourColumn — название вашего столбца.

4. Нажмите Закрыть и загрузить — результат появится на новом листе.

= List.Count(
Text.Split(
Text.Replace(
Text.Replace([YourColumn], ",", ""),
".", ""
),
" "
)
)