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

Работа с комбинированными данными — одна из самых распространённых задач в Microsoft Excel. Часто в ячейках встречаются значения, где цифры и буквы перемешаны: артикулы (PRD-12345), инвентарные номера (АБ-789), телефонные номера с префиксами (+7(999)123-45-67). Разделение таких данных на отдельные компоненты экономит время и упрощает дальнейший анализ.

В этой статье вы найдёте 5 рабочих методов — от простых функций до автоматизации через VBA. Мы разберём, как выделить только цифры или только буквы, учитывая нюансы разных форматов данных. Все примеры протестированы в Excel 2019–2026 и Microsoft 365, но большинство способов работают и в старых версиях (начиная с Excel 2010).

Особое внимание уделим типичным ошибкам: почему формулы возвращают #ЗНАЧ!, как избежать потери данных при конвертации, и что делать, если числа сохраняются как текст. В конце статьи — FAQ с ответами на частые вопросы и сравнительная таблица методов по скорости и сложности.

1. Метод «Текст по столбцам»: разделяем без формул

Самый простой способ для новичков — встроенный инструмент «Текст по столбцам». Он подходит, если данные имеют фиксированный разделитель (дефис, пробел, запятая) или постоянную ширину (например, первые 2 символа — буквы, остальные — цифры).

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

1. Выделите столбец с данными.
2. Перейдите на вкладку Данные → Текст по столбцам.
3. Выберите С разделителями (если есть символ-разделитель) или Фиксированная ширина (если позиция символов постоянна).
4. Настройте параметры на следующем экране и укажите, куда вывести результат.

Пример: для данных вида АБ123 (2 буквы + 3 цифры) выберите Фиксированная ширина и создайте разрыв после 2-го символа. Excel автоматически разобьёт данные на два столбца.

⚠️ Внимание: Если в ячейке смешаны буквы и цифры без разделителей (например, a1b2c3), этот метод не сработает. Используйте формулы или VBA.

2. Формулы для извлечения только цифр

Если нужно вытащить только цифры из строки (например, из PRD-12345 получить 12345), используйте комбинацию функций. Ниже — универсальные формулы для разных версий Excel.

2.1. Для Excel 2019–2026 и Microsoft 365

Современные версии поддерживают динамические массивы и новые функции. Самый короткий вариант:

=ТЕКСТПОСЛЕ(ТЕКСТДОБ(ПОДСТАВИТЬ(A1;{"0";"1";"2";"3";"4";"5";"6";"7";"8";"9"};"");"");0)

Как это работает: функция ПОДСТАВИТЬ удаляет все цифры, оставляя только буквы и символы. Затем ТЕКСТДОБ и ТЕКСТПОСЛЕ извлекают пустую строку, а 0 в конце возвращает её длину — то есть количество цифр. Но для извлечения самих цифр лучше использовать:

=СЦЕПИТЬ(ЕСЛИОШИБКА(ПСТР($A1;СТРОКА(ДВССЫЛ("1:10"));1)*1;""))

2.2. Для Excel 2010–2016

В старых версиях примените формулу массива (вводите с Ctrl+Shift+Enter):

=СУММПРОИЗВ(--(НЕ(ЕОШ(ПСТР(A1;СТРОКА(ДВССЫЛ("1:10"));1)*1))));*10^(СТРОКА(ДВССЫЛ("1:10"))-1))

Или более простой вариант для извлечения цифр в текстовый формат:

=ПСТР(A1;МИН(ЕСЛИ(ЕОШИБКА(ПСТР(A1;СТРОКА(ДВССЫЛ("1:10"));1)*1;0);СТРОКА(ДВССЫЛ("1:10"))));СЧЁТЕСЛИ(ПСТР(A1;СТРОКА(ДВССЫЛ("1:10"));1);{"0";"1";"2";"3";"4";"5";"6";"7";"8";"9"}))

Эти формулы анализируют каждый символ в ячейке и возвращают только цифры. Результат будет в текстовом формате — при необходимости преобразуйте его в число через ЗНАЧЕН.

- Убедитесь, что в ячейке нет скрытых пробелов (используйте СЖПРОБЕЛЫ)

- Проверьте регистр букв (формулы чувствительны к А и а)

- Для больших диапазонов тестируйте на 5–10 строках перед применением ко всему столбцу

-->

2.3. Примеры работы формул

⚠️ Внимание: Если в ячейке есть десятичные разделители (например, 12,34), формулы вернут 1234. Для сохранения точки/запятой используйте ПОДСТАВИТЬ с заменой разделителя на временный символ (например, |).

3. Формулы для извлечения только букв

Чтобы оставить в строке только буквы и символы (удалив цифры), используйте аналогичные подходы, но с обратной логикой. Например, для данных PRD-12345 нужно получить PRD-.

3.1. Универсальная формула (все версии Excel)

=СЦЕПИТЬ(ЕСЛИОШИБКА(ПСТР(A1;СТРОКА(ДВССЫЛ("1:20"));1)/ПСТР(A1;СТРОКА(ДВССЫЛ("1:20"));1);ПСТР(A1;СТРОКА(ДВССЫЛ("1:20"));1);""))

Логика: деление символа на себя возвращает ошибку, если символ — не число. Функция ЕСЛИОШИБКА заменяет ошибки на пустую строку, а корректные символы (буквы) — оставляет.

3.2. Альтернатива с ПОДСТАВИТЬ

Проще удалить все цифры через замену:

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

Минус: громоздкость. Плюс: работает во всех версиях без массивов.

3.3. Особенности работы с кириллицей и латиницей

Формулы выше работают с любыми символами, кроме цифр. Но если нужно отдельно извлечь русские буквы или латиницу, используйте:

• 🔹 Для кириллицы: =СЦЕПИТЬ(ЕСЛИ(КОДСИМВ(ПСТР(A1;СТРОКА(ДВССЫЛ("1:20"));1))>=1040;ПСТР(A1;СТРОКА(ДВССЫЛ("1:20"));1);"")) (вводите как формулу массива).
• 🔹 Для латиницы: замените >=1040 на <1040 и добавьте проверку на диапазон 65-90 (заглавные буквы) и 97-122 (строчные).

4. Разделение данных с помощью Power Query

Power Query (доступен в Excel 2016+ и Microsoft 365) — мощный инструмент для преобразования данных. Он справится с задачей даже для миллиона строк, причём без формул.

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

1. Выделите исходные данные и нажмите Данные → Из таблицы/диапазона (в Excel 2016 — Получить данные → Из таблицы).
2. В открывшемся редакторе Power Query выберите столбец → Преобразовать → Разделить столбец → По позициям.
3. Укажите количество символов для разделения (например, первые 2 — буквы, остальные — цифры).
4. Нажмите Закрыть и загрузить.

Для сложных случаев (например, a1b2c3d4) используйте пользовательский столбец:

• 🔹 Добавьте столбец с формулой =Text.Select([Column1],{"0".."9"}) для цифр.
• 🔹 Для букв: =Text.Remove([Column1],{"0".."9"}).

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

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

Function ExtractNumbers(rng As Range) As String
Dim i As Integer, char As String
For i = 1 To Len(rng.Value)
char = Mid(rng.Value, i, 1)
If IsNumeric(char) Then ExtractNumbers = ExtractNumbers & char
Next i
End Function

Function ExtractLetters(rng As Range) As String
Dim i As Integer, char As String
For i = 1 To Len(rng.Value)
char = Mid(rng.Value, i, 1)
If Not IsNumeric(char) Then ExtractLetters = ExtractLetters & char
Next i
End Function

⚠️ Внимание: Перед использованием VBA сохраните файл как .xlsm (с поддержкой макросов). В противном случае функции не будут работать, а Excel выдаст ошибку при открытии.

Function ExtractLettersCase(rng As Range) As String
Dim i As Integer, char As String
For i = 1 To Len(rng.Value)
char = Mid(rng.Value, i, 1)
If Not IsNumeric(char) Then ExtractLettersCase = ExtractLettersCase & char
Next i
End Function

=ДЛСТР(A1)

=ПЕЧСИМВ(A1)

Function SplitMixed(rng As Range)
Dim i As Integer, result As String
For i = 1 To Len(rng.Value)
If IsNumeric(Mid(rng.Value, i, 1)) Then
result = result & " " & Mid(rng.Value, i, 1)
Else
result = result & Mid(rng.Value, i, 1)
End If
Next i
SplitMixed = result
End Function