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

Подсчёт количества цифр в числах — задача, с которой сталкиваются бухгалтеры при проверке корректности идентификаторов, аналитики при обработке больших массивов данных, и даже маркетологи при сегментации клиентских баз по номерам телефонов. В Microsoft Excel нет встроенной функции вроде КОЛИЧЕСТВО_ЦИФР(), но решить эту задачу можно минимум пятью разными способами — от элементарных формул до автоматизации через VBA.

Чаще всего пользователи ищут решение для двух сценариев: подсчёт всех цифр в числе (включая нули в начале, если они отображаются как текст) и подсчёт только значащих цифр (игнорируя ведущие нули и форматирование). Например, в номере договора 0012345 может потребоваться учитывать все 7 символов или только 5 значащих цифр. В этой статье разберём оба варианта с учётом нюансов форматирования ячеек.

Многие ошибочно полагают, что для этой задачи обязательно нужен Visual Basic for Applications или сложные массивы. На практике же 80% случаев покрываются стандартными функциями ДЛСТР() и ЛЕН() в комбинации с ЗАМЕНИТЬ(). А для обработки тысяч строк достаточно одного клика — если правильно настроить Power Query.

1. Базовый метод: функция ДЛСТР для текстовых чисел

Самый простой способ работает, если ваши числа хранятся как текст (например, артикулы "001945" или телефонные номера "89123456789"). В этом случае достаточно применить функцию ДЛСТР (или её английский аналог LEN):

```excel

=ДЛСТР(A1)

```

Функция вернёт количество всех символов в ячейке, включая ведущие нули, пробелы и даже невидимые знаки (например, символы табуляции). Это идеально подходит для проверки корректности ввода данных, когда важна точная длина строки.

Пример: Если в ячейке A1 записан текст "007", формула вернёт 3, а не 2 (как было бы при автоматическом преобразовании в число).

⚠️ Внимание: Если ячейка отформатирована как "Числовой формат", но содержит ведущие нули (например, 00123), Excel автоматически обрежет их при вводе. Чтобы сохранить нули, предварительно измените формат ячейки на Текстовый (Главная → Формат → Формат ячеек → Текстовый).

• ✅ Работает для любых символов, не только цифр
• ✅ Не требует дополнительных функций
• ❌ Не подходит для чисел без ведущих нулей (вернёт ошибку или некорректный результат)
• ❌ Учитывает пробелы и скрытые символы

2. Подсчёт цифр в числовых значениях (без ведущих нулей)

Когда числа вводятся без ведущих нулей (например, 12345), функция ДЛСТР вернёт ошибку #ЗНАЧ!, потому что Excel воспринимает их как числовые значения, а не текст. В этом случае используйте комбинацию функций:

```excel

=ДЛСТР(ТЕКСТ(A1;"0"))

```

Здесь ТЕКСТ(A1;"0") преобразует число в текстовый формат без десятичных знаков, а ДЛСТР подсчитывает символы. Например, для числа 123 результат будет 3, а для 100500 — 6.

Нюанс: Если в ячейке содержится дробное число (например, 123.45), формула выше вернёт 5 (цифры до и после точки). Чтобы учитывать только целые разряды, используйте:

```excel

=ДЛСТР(ЦЕЛОЕ(A1))

```

• ✅ Работает для чисел любого размера
• ✅ Игнорирует десятичные разряды (если использовать ЦЕЛОЕ)
• ❌ Не учитывает ведущие нули (даже если они были в исходных данных)
• ❌ Требует корректировку для отрицательных чисел (см. следующий раздел)

3. Учёт отрицательных чисел и десятичных разрядов

Если в ваших данных встречаются отрицательные числа или дроби, базовые формулы дадут некорректный результат. Например, для -123.45 формула =ДЛСТР(ТЕКСТ(A1;"0")) вернёт 7 (учитывая знак "-" и точку), хотя цифр всего 5.

Чтобы подсчитать только цифры, используйте эту модификацию:

```excel

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

```

Здесь:

1. ТЕКСТ(A1;"0") преобразует число в текст.

2. ПОДСТАВИТЬ(..., "-", "") удаляет знак минус.

3. ПОДСТАВИТЬ(..., ",", "") удаляет разделитель дробной части (в русскоязычной версии Excel это запятая).

4. ДЛСТР подсчитывает оставшиеся символы (только цифры).

Для англоязычной версии Excel (где разделитель — точка) замените запятую на точку в последней функции:

```excel

=LEN(SUBSTITUTE(SUBSTITUTE(TEXT(A1;"0");"-";"");".";""))

```

⚠️ Внимание: Если в ячейке содержится текст с буквами (например, "А123Б45"), формула вернёт количество всех символов, а не только цифр. Для таких случаев потребуется регулярное выражение (см. раздел про Power Query).

1. Убедитесь, что ячейка содержит число, а не текст

2. Замените в формуле запятую на точку, если используете англоязычный Excel

3. Для научной нотации добавьте параметр формата: ТЕКСТ(A1;"0;;")

4. Проверьте результат на тестовых данных: -123.45 → 5, 1000 → 4-->

4. Подсчёт цифр в смешанных данных (текст + числа)

Когда в ячейке перемешаны буквы, символы и цифры (например, "Договор №123-АБ45"), предыдущие методы не сработают. Здесь поможет регулярное выражение через Power Query или пользовательская функция на VBA.

#### Способ 1: Power Query (без кода)

1. Выделите диапазон данных и перейдите на вкладку Данные → Получение данных → Из таблицы/диапазона.

2. В открывшемся редакторе Power Query добавьте пользовательский столбец с формулой:

```powerquery

= Text.Select([ВашСтолбец], {"0".."9"})

```

3. Затем добавьте ещё один столбец для подсчёта длины:

```powerquery

= Text.Length([ПользовательскийСтолбец.1])

```

4. Удалите вспомогательный столбец и загрузите данные обратно в Excel.

Этот метод извлекает все цифры из строки и подсчитывает их количество. Например, для "А1Б2В3" результат будет 3.

#### Способ 2: VBA-функция (для опытных пользователей)

Если Power Query недоступен, создайте пользовательскую функцию:

1. Нажмите Alt + F11, чтобы открыть редактор VBA.

2. Вставьте новый модуль (Insert → Module) и добавьте код:

```vba

Function COUNT_DIGITS(rng As Range) As Long

Dim str As String

Dim i As Integer

str = rng.Value

For i = 1 To Len(str)

If IsNumeric(Mid(str, i, 1)) Then

COUNT_DIGITS = COUNT_DIGITS + 1

End If

Next i

End Function

```

3. Теперь в Excel можно использовать =COUNT_DIGITS(A1).

• ✅ Обрабатывает любые символы (буквы, знаки, пробелы)
• ✅ Подходит для больших массивов данных
• ❌ Требует навыки работы с Power Query или VBA
• ❌ Медленнее стандартных формул при большом объёме данных

5. Автоматизация для больших таблиц: Power Query + Excel Tables

Если вам нужно обработать тысячи строк, ручной ввод формул неэффективен. Оптимальное решение — автоматизация через Power Query с последующим обновлением данных по одному клику.

#### Пошаговая инструкция:

1. Преобразуйте ваш диапазон в Умную таблицу (Главная → Форматировать как таблицу).

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

=ЕСЛИ(A1="";"";ДЛСТР(ТЕКСТ(A1;"0")))

=ЕСЛИОШИБКА(ДЛСТР(ТЕКСТ(A1;"0"));0)

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

=LEN(SUBSTITUTE(TO_TEXT(A1);"-";""))