Как посчитать слова в Excel: от базовых функций до автоматизации

Почему стандартных функций для подсчёта слов в Excel нет — и что с этим делать

Microsoft Excel изначально заточен под работу с числами, а не с текстами. В отличие от Word, где счётчик слов встроен по умолчанию, в таблицах нет готовой функции вроде =СЛОВА(). Это создаёт проблемы для аналитиков, копирайтеров и маркетологов, которые часто работают с текстовыми данными: описаниями товаров, отзывами клиентов или SEO-текстами прямо в ячейках.

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

Важно: если вам нужно посчитать символы (с пробелами или без), а не слова — используйте функцию =ДЛСТР(). А для подсчёта предложений потребуются более сложные решения, о которых мы расскажем в отдельной статье.

Метод 1: Подсчёт слов в одной ячейке с помощью формулы

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

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

Разберём, как это работает на примере ячейки A1 с текстом "Купить молоко хлеб яйца":

1. ДЛСТР(A1) возвращает 20 (длина строки с пробелами).
2. ПОДСТАВИТЬ(A1;" ";"") убирает все пробелы, оставляя "Купитьмолокохлебяйца" длиной 16.
3. Разница 20-16=4 — это количество пробелов.
4. Прибавляем 1: 4+1=5 слов.

⚠️ Внимание: Формула не учитывает знаки препинания. Если в тексте есть запятые, точки или тире, они могут исказить результат. Например, фраза "Купить молоко, хлеб, яйца" будет воспринята как 7 слов вместо 4.

Убедитесь, что в тексте нет лишних пробелов между словами

Проверьте отсутствие табуляций (CHAR(9)) вместо пробелов

Удалите переносы строк (CHAR(10)), если они есть

Тестируйте формулу на примере с знаками препинания

-->

Метод 2: Учёт знаков препинания — усовершенствованная формула

Чтобы формула корректно работала с текстами, содержащими запятые, точки с запятой или дефисы, нужно заменить все разделители на пробелы, а затем применить логику из первого метода. Используем функцию =ПОДСТАВИТЬ() несколько раз:

=ЕСЛИ(ДЛСТР(A1)=0;0;
ДЛСТР(
ПОДСТАВИТЬ(
ПОДСТАВИТЬ(
ПОДСТАВИТЬ(
ПОДСТАВИТЬ(
ПОДСТАВИТЬ(A1;",";" ");
";";" ");
"-";" ");
".";" ");
"!";" ");
"?";" ")
)-ДЛСТР(ПОДСТАВИТЬ(
ПОДСТАВИТЬ(
ПОДСТАВИТЬ(
ПОДСТАВИТЬ(
ПОДСТАВИТЬ(A1;",";" ");
";";" ");
"-";" ");
".";" ");
"!";" ");
"?";" "))
+1)

Эта формула последовательно заменяет:

• 📌 Запятые (",") на пробелы
• 📌 Точки с запятой (";") на пробелы
• 📌 Дефисы ("-") на пробелы
• 📌 Точки (".") на пробелы
• 📌 Восклицательные и вопросительные знаки

⚠️ Внимание: Если в тексте есть многоточия ("...") или кавычки, их тоже нужно добавить в список замен. Иначе фраза "Купить «молоко», «хлеб»..." будет посчитана как 5 слов вместо 2.

Метод 3: Подсчёт слов в диапазоне ячеек

Если нужно посчитать слова во всем столбце (например, A1:A100), используйте комбинацию формулы массива с =СУММ(). Введите эту формулу как формулу массива (в новых версиях Excel — просто нажмите Enter, в старых — Ctrl+Shift+Enter):

=СУММ(
ЕСЛИ(ДЛСТР(A1:A100)=0;0;
ДЛСТР(A1:A100)-ДЛСТР(ПОДСТАВИТЬ(A1:A100;" ";""))+1)
)

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

1. Формула проходит по каждой ячейке в диапазоне A1:A100.
2. Для пустых ячеек (ДЛСТР=0) возвращает 0.
3. Для остальных применяет логику подсчёта слов (как в Методе 1).
4. СУММ() складывает результаты по всем ячейкам.

🔹 Нюанс: В Excel 365 и 2019 формула работает как динамический массив. В Excel 2016 и старше её нужно вводить как формулу массива (завершать Ctrl+Shift+Enter). Иначе результат будет неверным.

Excel 365 (онлайн или десктоп)

Excel 2019

Excel 2016

Excel 2013 или старше

Не знаю версию-->

Метод 4: Пользовательская функция на VBA для точного подсчёта

Если вам нужно 100% точное решение, которое учитывает все нюансы (многоточия, кавычки, абзацы), напишите собственную функцию на VBA. Откройте редактор скриптов (Alt+F11), вставьте новый модуль (Insert → Module) и добавьте этот код:

Function CountWords(rng As Range) As Long
Dim cell As Range
Dim wordCount As Long
Dim i As Integer
Dim str As String
Dim inWord As Boolean

For Each cell In rng
If Not IsEmpty(cell) Then
str = cell.Value
inWord = False
wordCount = 0

For i = 1 To Len(str)
If Mid(str, i, 1) <> " " And Not inWord Then
inWord = True
wordCount = wordCount + 1
ElseIf Mid(str, i, 1) = " " Then
inWord = False
End If
Next i
CountWords = CountWords + wordCount
End If
Next cell
End Function

Теперь в Excel можно использовать функцию =CountWords(A1:A100). Её преимущества:

• 🔧 Работает с любыми символами (не нужно вручную прописывать замены).
• 🔧 Корректно обрабатывает многократные пробелы и табуляции.
• 🔧 Поддерживает диапазоны ячеек (не только одиночные ячейки).

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

Метод 5: Power Query для массовой обработки текстов

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

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

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

   = List.Count(Text.Split([ВашСтолбец], " "))

   где [ВашСтолбец] — название столбца с текстом.

4. Нажмите Закрыть и загрузить (Close & Load).

🔹 Плюсы метода:

• ⚡ Обрабатывает миллионы строк без тормозов.
• 🔄 Можно обновить данные одним кликом (Данные → Обновить все).
• 📊 Результат сохраняется в отдельной таблице, не загружая основной файл.

⚠️ Внимание: Формула Text.Split разделят текст по пробелам, но не учитывает знаки препинания. Для точного подсчёта замените пробел (" ") на регулярное выражение, которое учитывает все разделители:

= List.Count(Text.Split(Text.Replace([ВашСтолбец], "[^a-zA-Zа-яА-Я0-9]", " "), " "))

Здесь [^a-zA-Zа-яА-Я0-9] заменяет все символы, кроме букв и цифр, на пробелы.

Сравнение методов: какой выбрать для вашей задачи

Выбор способа подсчёта слов зависит от объёма данных, точности и навыков работы с Excel. Ниже таблица сравнения:

Критическая ошибка: если в тексте есть переносы строк (нажатие Alt+Enter в ячейке), ни один из методов не сработает корректно. Перед подсчётом замените переносы на пробелы с помощью =ПОДСТАВИТЬ(A1;СИМВОЛ(10);" ").

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

Даже с правильными формулами результат может быть неверным. Вот самые распространённые причины:

⚠️ Внимание: Если в ячейке есть неразрывный пробел (вставляется через Ctrl+Shift+Пробел), функция ПОДСТАВИТЬ() его не удалит. Замените такой пробел на обычный через =ПОДСТАВИТЬ(A1;СИМВОЛ(160);" ").

Другие ловушки:

• 🚫 Лишние пробелы в начале/конце ячейки. Используйте =СЖПРОБЕЛЫ(A1), чтобы их убрать.
• 🚫 Ячейки с ошибками (#ЗНАЧ!, #ДЕЛ/0!). Они сломают формулу массива. Оберните диапазон в =ЕСЛИОШИБКА().
• 🚫 Текст в формате "rich text" (с выделениями жирным/цветом). Формулы работают только с "чистым" текстом. Скопируйте данные в Блокнот и обратно, чтобы удалить форматирование.
• 🚫 Ячейки с формулами, а не текстом. Сначала преобразуйте их в значения (Копировать → Специальная вставка → Значения).

🔹 Проверка: Чтобы убедиться в корректности подсчёта, сравните результат Excel с ручным подсчётом в Word (выделите текст → Рецензирование → Статистика). Расхождения более чем на 5% говорят об ошибке в формуле.

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

=СЧЁТЗ(УНИК(ТЕКСТРАЗД(";" & A1 & ";";";";;ИСТИНА)))-1