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

Для сложных случаев (например, "3яблока и 5груш") в Power Query есть регулярные выражения. Добавьте пользовательский столбец с формулой:

= Text.Select([Column1], {"0-9"})

Эта команда извлечёт все цифры из строки, игнорируя буквы и символы.

Убедитесь, что исходные данные в формате таблицы (Ctrl+T)

Проверьте наличие пустых ячеек — они могут сбить разбор

Замените нестандартные разделители (табуляции, неразрывные пробелы) на обычные

Сохраните резервную копию файла перед преобразованиями-->

4. Регулярные выражения через VBA

Когда стандартные функции бессильны (например, в строках вроде "Абв12гд34е56", где числа перемешаны с буквами), на помощь приходят регулярные выражения (RegExp). В Excel их можно использовать только через VBA.

Скопируйте этот код в редактор макросов (Alt+F11 → Insert → Module):

Function ExtractNumbers(rng As Range) As String
Dim regEx As New RegExp
Dim strInput As String
Dim strOutput As String

strInput = rng.Value
With regEx
.Pattern = "[0-9]+"
.Global = True
End With

If regEx.Test(strInput) Then
strOutput = regEx.Execute(strInput)(0)
End If

ExtractNumbers = strOutput
End Function

Теперь в Excel можно использовать формулу =ExtractNumbers(A1), и она вернёт первое число из строки. Чтобы извлечь все числа (например, для строки "1а2б3в" → "123"), модифицируйте функцию:

    If regEx.Test(strInput) Then
Dim matches As Object
Set matches = regEx.Execute(strInput)
Dim i As Integer
For i = 0 To matches.Count - 1
strOutput = strOutput & matches(i)
Next i
End If

⚠️ Внимание: Для работы кода необходимо подключить библиотеку Microsoft VBScript Regular Expressions. В редакторе VBA перейдите в Tools → References и отметьте галочкой Microsoft VBScript Regular Expressions 5.5.

5. Разбор данных с помощью Flash Fill

Малоизвестная, но крайне полезная функция Flash Fill (Быстрое заполнение) появилась в Excel 2013 и умеет "угадывать" шаблоны разбора. Она идеальна, когда данные имеют похожую структуру, но нет времени писать формулы.

Пример: у вас есть столбец с данными "Иванов И.И. 1985г.р.", и нужно вытащить год рождения. Делайте так:

1. В соседнем столбце введите первый результат вручную (например, 1985).
2. Нажмите Ctrl+E (или Данные → Быстрое заполнение).
3. Excel автоматически заполнит остальные ячейки по шаблону.

Flash Fill распознаёт:

• 📅 Даты в разных форматах ("01.01.2023", "1 января").
• 🔢 Числа с префиксами/суффиксами ("№123", "100р").
• 📌 Текстовые шаблоны ("Фамилия_И.О." → "И.О.").

6. Продвинутые формулы массивов

Для пользователей Excel 365 доступны динамические массивы, которые позволяют разбирать текст без VBA. Например, чтобы извлечь все числа из строки "А1Б2В3" в отдельные ячейки:

=--ТЕКСТРАЗБ(ПОДСТАВИТЬ(A1; СИМВОЛ(ПОСЛЕДОВ(97; 1; 26)); ""); ; ; ИСТИНА)

Формула заменяет все буквы на пустоту, а затем разбивает строку по "ничему" (пустой разделитель), возвращая массив чисел.

Если нужно получить сумму всех чисел в строке (например, для "10ящиков по20кг" → 200):

=СУММ(--ТЕКСТРАЗБ(ПОДСТАВИТЬ(A1; СИМВОЛ(ПОСЛЕДОВ(97; 1; 26)); ""); ; ; ИСТИНА))

Для извлечения первого числа из строки с хаотичным содержимым:

=МИН(ЕСЛИОШИБКА(--ТЕКСТРАЗБ(ЛЕВСИМВ(A1; ПОСЛЕДОВ(ДЛСТР(A1))); ; ; ИСТИНА); ""))

7. Обработка ошибок и особенные случаи

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

• 🛑 Пустые ячейки: Оберните формулу в ЕСЛИ(A1<>""; ваша_формула; "").
• 🔄 Отсутствие чисел: Используйте ЕСЛИОШИБКА(ваша_формула; 0).
• 📏 Динамическая длина: Для строк без разделителей подойдёт =МАКС(ЕСЛИОШИБКА(--ПСТР(A1; СТРОКА(ДВССЫЛ("1:100")); 1); 0)) (извлекает максимальное число из отдельных символов).

Пример универсальной формулы для извлечения числа из строки любой структуры (работает в Excel 365):

=ЕСЛИОШИБКА(
--ТЕКСТСОЕДИНИТЬ(""; ИСТИНА; ФИЛЬТР(--ТЕКСТРАЗБ(A1; ; ; ИСТИНА); --ТЕКСТРАЗБ(A1; ; ; ИСТИНА) <> 0));
0
)

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

FAQ: Частые вопросы

=ТЕКСТСОЕДИНИТЬ(""; ИСТИНА; --ТЕКСТРАЗБ(ПОДСТАВИТЬ(A1; СИМВОЛ(ПОСЛЕДОВ(97; 1; 26)); ""); ; ; ИСТИНА))

=ЛЕВСИМВ(A1; НАЙТИ(" "; A1) - 1)  // для фамилии
=ПРАВСИМВ(A1; ДЛСТР(A1) - НАЙТИ(" "; A1)) // для суммы

=ТЕКСТСОЕДИНИТЬ(""; ИСТИНА; --ТЕКСТРАЗБ(ПОДСТАВИТЬ(A1; {"X"; "Y"}; " "); ; ; ИСТИНА))

=ПСТР(A1; ПОИСК("X"; A1) + 1; ПОИСК("Y"; A1) - ПОИСК("X"; A1) - 1)

=ТЕКСТРАЗБ(A1; ",")  // для запятой
=ТЕКСТРАЗБ(A1; ".")  // для точки

=ЛЕВСИМВ(A1; НАЙТИ(","; A1) - 1)  // текст до запятой
=ПРАВСИМВ(A1; ДЛСТР(A1) - НАЙТИ(","; A1)) // текст после запятой