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

Почему подсчёт букв в Excel — не такая простая задача, как кажется

На первый взгляд, подсчитать количество букв в текстовой строке Microsoft Excel должно быть элементарно: взял функцию, применил, получил результат. Но на практике пользователи сталкиваются с целым букетом нюансов. Во-первых, Excel не различает буквы и символы по умолчанию — для программы "А" и "@" занимают одинаковое место. Во-вторых, пробелы, знаки препинания и даже невидимые символы (например, переносы строк) могут искажать итоговый счёт. А если вам нужно посчитать только русские буквы или игнорировать цифры? Здесь уже потребуются комбинации функций или даже макросы.

Эта статья разберёт все возможные сценарии подсчёта букв в Excel — от базовых формул до автоматизации через Power Query и VBA. Мы рассмотрим не только стандартные инструменты вроде ДЛСТР, но и малоизвестные трюки для работы с кириллицей, латиницей и спецсимволами. А в конце вас ждёт сравнительная таблица методов, чтобы выбрать оптимальный вариант для вашей задачи.

Способ 1: Функция ДЛСТР — базовый подсчёт всех символов

Начнём с самого простого: функции ДЛСТР (или LEN в английской версии). Она возвращает количество всех символов в строке, включая буквы, цифры, пробелы и знаки препинания. Формат использования:

=ДЛСТР(текст)

Примеры:

  • 📌 =ДЛСТР("Привет!") → вернёт 7 (6 букв + восклицательный знак)
  • 📌 =ДЛСТР(A1) → подсчитает символы в ячейке A1
  • 📌 =ДЛСТР(" ") → даже пробел считается за 1 символ!

Главный недостаток метода: ДЛСТР не умеет отличать буквы от остальных символов. Если вам нужно посчитать только буквенные символы, читайте дальше.

⚠️ Внимание: Функция ДЛСТР в Excel для Mac может давать неверные результаты с двубайтовыми символами (например, иероглифами). Для таких случаев используйте ЛЕНБ.
📊 Как часто вы используете текстовые функции в Excel?
Ежедневно
Несколько раз в неделю
Редко
Никогда

Способ 2: Подсчёт ТОЛЬКО букв (исключаем цифры и символы)

Чтобы посчитать исключительно буквы, придётся комбинировать несколько функций. Алгоритм такой:

  1. Удалить из строки все небуквенные символы (цифры, пробелы, знаки препинания).
  2. Подсчитать длину очищенной строки.

Формула для русских и латинских букв:

=ДЛСТР(СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;"0";"");"1";"");"2";"");"3";"");"4";""));...)))

Но писать такую "простыню" нерационально. Вместо этого используйте регулярные выражения через Power Query (см. Способ 4) или этот упрощённый вариант для удаления цифр:

=ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;"0";"");"1";"");"2";"");"3";"");"4";"");"5";"");"6";"");"7";"");"8";"");"9";""))

Для удаления всех небуквенных символов (кроме пробелов) подойдёт формула массива (вводится через Ctrl+Shift+Enter):

=СУММПРОИЗВ(--(КОДСИМВ(ПСТР(A1;СТРОКА(ДВССЫЛ("1:"&ДЛСТР(A1)));1))>=192);--(КОДСИМВ(ПСТР(A1;СТРОКА(ДВССЫЛ("1:"&ДЛСТР(A1)));1))<=255)))

Убедитесь, что текст в одной ячейке|Проверьте регистр (заглавные/строчные)|Удалите лишние пробелы функцией СЖПРОБЕЛЫ|Решите, нужны ли знаки препинания в подсчёте-->

Способ 3: Раздельный подсчёт русских и латинских букв

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

  • 🅰️ Заглавные: 1040–1071 (от "А" до "Я")
  • 🆔 Строчные: 1072–1103 (от "а" до "я")
  • 🆑 Латиница: 65–90 (A–Z) и 97–122 (a–z)

Формула для подсчёта русских букв:

=СУММПРОИЗВ(--(КОДСИМВ(ПСТР(A1;СТРОКА(ДВССЫЛ("1:"&ДЛСТР(A1)));1))>=1040);--(КОДСИМВ(ПСТР(A1;СТРОКА(ДВССЫЛ("1:"&ДЛСТР(A1)));1))<=1103)))

Для латинских букв:

=СУММПРОИЗВ(--(ИЛИ(И(КОДСИМВ(ПСТР(A1;СТРОКА(ДВССЫЛ("1:"&ДЛСТР(A1)));1))>=65;КОДСИМВ(ПСТР(A1;СТРОКА(ДВССЫЛ("1:"&ДЛСТР(A1)));1))<=90));И(КОДСИМВ(ПСТР(A1;СТРОКА(ДВССЫЛ("1:"&ДЛСТР(A1)));1))>=97;КОДСИМВ(ПСТР(A1;СТРОКА(ДВССЫЛ("1:"&ДЛСТР(A1)));1))<=122)))))
⚠️ Внимание: Эти формулы не учитывают букву "ё" (код 1105) и "Ё" (код 1025). Чтобы включить их в подсчёт, добавьте условия ИЛИ(КОДСИМВ(...)=1025; КОДСИМВ(...)=1105).
Тип символовДиапазон кодовПример формулы
Русские заглавные1040–1071=СУММПРОИЗВ(--(КОДСИМВ(...)>=1040); --(КОДСИМВ(...)<=1071))
Русские строчные1072–1103=СУММПРОИЗВ(--(КОДСИМВ(...)>=1072); --(КОДСИМВ(...)<=1103))
Латинские заглавные65–90=СУММПРОИЗВ(--(КОДСИМВ(...)>=65); --(КОДСИМВ(...)<=90))
Латинские строчные97–122=СУММПРОИЗВ(--(КОДСИМВ(...)>=97); --(КОДСИМВ(...)<=122))

Способ 4: Power Query — гибкий подсчёт с фильтрацией

Если вам нужно обработать большие объёмы данных или применить сложные правила фильтрации (например, посчитать буквы в определённом регистре), Power Query станет идеальным решением. Вот пошаговая инструкция:

  1. Выделите исходные данные и перейдите на вкладку Данные → Из таблицы/диапазона.
  2. В открывшемся редакторе Power Query добавьте пользовательский столбец с формулой: 
    = Text.Length([ВашСтолбец]) - Text.Length(Text.Remove([ВашСтолбец], {"a".."z", "A".."Z", "а".."я", "А".."Я"}))
  3. Для подсчёта только русских букв используйте: 
    = Text.Length(Text.Select([ВашСтолбец], {"А".."Я", "а".."я", "Ё", "ё"}))
  4. Нажмите Закрыть и загрузить, чтобы вернуть данные в Excel.

Power Query позволяет:

  • 🔄 Обрабатывать миллионы строк без тормозов
  • 🔍 Применять сложные фильтры (например, "считать буквы только после запятой")
  • 🔄 Автоматически обновлять результаты при изменении исходных данных

Способ 5: VBA — автоматизация для сложных задач

Когда формулы и Power Query не справляются (например, нужно посчитать буквы в нескольких файлах или применить уникальные правила), на помощь придёт VBA. Ниже макрос для подсчёта букв с гибкими настройками:

Function CountLetters(rng As Range, Optional OnlyRussian As Boolean = False, Optional CaseSensitive As Boolean = False) As Long

Dim i As Long, charCode As Integer, char As String


Dim count As Long: count = 0


Dim text As String: text = rng.Value



For i = 1 To Len(text)


char = Mid(text, i, 1)


charCode = Asc(char)



If OnlyRussian Then


' Русские буквы (включая Ёё)


If (charCode >= 1040 And charCode <= 1071) Or _


(charCode >= 1072 And charCode <= 1103) Or _


charCode = 1025 Or charCode = 1105 Then


count = count + 1


End If


Else


' Все буквы (латиница + кириллица)


If (charCode >= 65 And charCode <= 90) Or _


(charCode >= 97 And charCode <= 122) Or _


(charCode >= 1040 And charCode <= 1103) Or _


charCode = 1025 Or charCode = 1105 Then


count = count + 1


End If


End If


Next i



CountLetters = count


End Function

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

  1. Нажмите Alt+F11, чтобы открыть редактор VBA.
  2. Вставьте код в новый модуль (Insert → Module).
  3. В Excel используйте функцию как обычно: =CountLetters(A1; TRUE; FALSE), где:
    • A1 — ячейка с текстом,
    • TRUE — считать только русские буквы,
    • FALSE — игнорировать регистр.
⚠️ Внимание: Макросы работают только в файлах с расширением .xlsm. Если вы сохраните файл как .xlsx, код VBA будет утерян!
Как ускорить работу VBA-кода?

Для обработки больших диапазонов (например, 100 000+ ячеек) отключите автоматическое обновление экрана и расчёты формул в начале макроса:

Application.ScreenUpdating = False

Application.Calculation = xlCalculationManual


' --- Ваш код ---


Application.Calculation = xlCalculationAutomatic


Application.ScreenUpdating = True

Это ускорит выполнение в 5–10 раз.

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

Чтобы облегчить выбор, мы собрали ключевые характеристики каждого способа в одной таблице:

МетодСложностьГибкостьПроизводительностьКогда использовать
ДЛСТР⭐❌ Только все символы⚡ МгновенноБыстрая оценка длины строки
Формулы массива⭐⭐⭐✅ Фильтрация по кодам⏳ Медленно на больших данныхРазовые задачи с кириллицей/латиницей
Power Query⭐⭐✅ Высокая (регулярные выражения)⚡⚡ БыстроОбработка больших таблиц, сложные правила
VBA⭐⭐⭐⭐✅ Максимальная⚡⚡⚡ Очень быстроАвтоматизация, пакетная обработка файлов

Для разовых задач подойдут формулы или Power Query. Если вам нужно ежедневно обрабатывать тысячи строк с уникальными правилами — изучите VBA. А для быстрой оценки достаточно и ДЛСТР.

Частые ошибки и как их избежать

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

  • 🚫 Игнорирование пробелов: ДЛСТР("Привет мир") вернёт 10, а не 9. Используйте СЖПРОБЕЛЫ, чтобы удалить лишние пробелы.
  • 🚫 Неучёт регистра: Формулы с КОДСИМВ чувствительны к регистру. Если нужно посчитать "А" и "а" как одну букву, приведите текст к одному регистру (ПРОПИСН или СТРОЧН).
  • 🚫 Двубайтовые символы: Кириллица в Excel для Mac может считаться неправильно. Используйте ЛЕНБ вместо ДЛСТР.
  • 🚫 Скрытые символы: Переносы строк (CHAR(10)), табуляции (CHAR(9)) тоже считаются. Удалите их функцией ЧИСТ.

Проверьте свой текст на наличие скрытых символов с помощью функции:

=КОДСИМВ(ПСТР(A1;1;1)) & " | " & КОДСИМВ(ПСТР(A1;2;1)) & " | "...

FAQ: Ответы на популярные вопросы

Как посчитать буквы в диапазоне ячеек (например, A1:A10)?

Используйте формулу массива:

=СУММ(ДЛСТР(A1:A10))

Для подсчёта только букв комбинируйте с ПОДСТАВИТЬ или Power Query.

Можно ли посчитать буквы в Word через Excel?

Да, но потребуется VBA. Пример кода для подсчёта букв в активном документе Word:

Sub CountLettersInWord()

Dim wdApp As Object, doc As Object


Set wdApp = GetObject(, "Word.Application")


Set doc = wdApp.ActiveDocument


MsgBox "Букв в документе: " & CountLetters(doc.Content.Text)


End Sub

Предварительно добавьте ссылку на библиотеку Microsoft Word Object Library (Tools → References в редакторе VBA).

Почему функция ДЛСТР возвращает неверное количество символов?

Вероятные причины:

  • В ячейке есть непечатаемые символы (проверьте через =КОДСИМВ(ПСТР(A1;1;1))).
  • Вы используете Excel для Mac с двубайтовыми символами (попробуйте ЛЕНБ).
  • Текст импортирован из внешнего источника с неверной кодировкой (пересохраните файл в UTF-8).
Как посчитать уникальные буквы в строке?

Используйте эту формулу массива (вводится через Ctrl+Shift+Enter):

=СУММ(--(ЧАСТОТА(КОДСИМВ(ПСТР(A1;СТРОКА(ДВССЫЛ("1:"&ДЛСТР(A1)));1));КОДСИМВ(ПСТР(A1;СТРОКА(ДВССЫЛ("1:"&ДЛСТР(A1)));1)))>0))

Для учёта регистра добавьте ПРОПИСН(A1) в начало формулы.

Можно ли посчитать буквы в Google Таблицах?

Да, используйте аналогичные функции:

  • =LEN(A1) — аналог ДЛСТР,
  • =LENB(A1) — для двубайтовых символов,
  • =REGEXREPLACE(A1; "[^а-яА-Я]"; "") — удаление некириллических символов.

Для подсчёта букв комбинируйте с =LEN(REGEXREPLACE(...)).

📖 Читайте также

Формула Excel: первая буква заглавной — 5 способов (2026) Как сделать первую букву заглавной в Excel: функции ПРОПНАЧ, РЕГИСТР, Power Query и VBA. Пошаговые и Как в Excel оставить нужное количество символов: 5 способов Узнайте, как обрезать текст в Excel до заданной длины с помощью формул, инструментов и VBA. Пошаговы Как в Excel сделать текст как в предложении — 5 способов Пошаговая инструкция по преобразованию текста в Excel в формат «Как в предложении» (первая буква заг Как в Excel написать м² (квадратные метры) — 5 способов с примерами Пошаговые инструкции, как вставить символ м² в Excel: через клавиатуру, формулы, форматирование и сп Как добавить букву к слову в Excel: 5 способов и формулы Узнайте, как добавить букву или символ к тексту в Excel. Конкатенация, формулы СЦЕПИТЬ, ПОДСТАВИТЬ и Как сделать текст в таблице Excel: инструкции и форматы Подробная инструкция, как сделать текст в таблице Excel. Настройка форматов ячеек, перенос строк, об