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

Работа с числами в Microsoft Excel часто требует не только вычислений, но и структурирования данных. Одна из типичных задач — разделение числа на несколько ячеек: будь то разбивка многозначного числа на отдельные цифры, выделение разрядов (единицы, десятки, сотни) или распределение суммы по категориям. Без знания специальных приёмов эта операция может занять часы ручного труда, особенно если речь идёт о тысячах строк.

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

Если вы когда-нибудь сталкивались с необходимостью разложить номер телефона на код страны и местный номер, разбить артикул товара на составляющие или распределить бюджет по статьям расходов — эта инструкция сэкономит вам время. Все методы протестированы в Excel 2019–2023 и Microsoft 365, с учётом особенностей разных версий.

1. Разделение числа на отдельные цифры с помощью формул

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

Допустим, у вас в ячейке A1 находится число 12345, и вам нужно разложить его по цифрам в ячейки B1:F1. Вот как это сделать:

• 🔢 Первая цифра (1): =ЛЕВСИМВ(A1;1)
• 🔢 Вторая цифра (2): =ПСТР(A1;2;1)
• 🔢 Третья цифра (3): =ПСТР(A1;3;1)
• 🔢 Четвёртая цифра (4): =ПСТР(A1;4;1)
• 🔢 Пятая цифра (5): =ПРАВСИМВ(A1;1)

Важно: эти формулы работают, только если число в ячейке A1 отображается как текст. Если Excel воспринимает его как числовой формат, предварительно преобразуйте его с помощью функции =ТЕКСТ(A1;"0") или добавьте апостроф перед числом ('12345).

⚠️ Внимание: При использовании ПСТР() для чисел с плавающей запятой (например, 123.45) не забудьте учесть позицию точки/запятой. В русскоязычной версии Excel разделителем может быть запятая, что сдвигает позиции символов.

2. Разделение числа по разрядам (единицы, десятки, сотни)

Если вам нужно выделить не отдельные цифры, а разряды числа (например, из 1234 получить 1000, 200, 30 и 4), используйте комбинацию функций ЦЕЛОЕ(), ОСТАТ() и деления. Это классический математический подход, который работает даже с очень большими числами.

Формулы для числа в ячейке A1 (например, 1234):

• 📏 Тысячи: =ЦЕЛОЕ(A1/1000)*1000 → вернёт 1000
• 📏 Сотни: =ЦЕЛОЕ(ОСТАТ(A1;1000)/100)*100 → вернёт 200
• 📏 Десятки: =ЦЕЛОЕ(ОСТАТ(A1;100)/10)*10 → вернёт 30
• 📏 Единицы: =ОСТАТ(A1;10) → вернёт 4

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

Проверить формат ячейки (должен быть "Общий" или "Числовой")

Убедиться, что число не содержит текстовых символов

Скопировать формулы для всех нужных разрядов

Проверить результат на тестовом числе-->

3. Преобразование числа в текст и разделение по символам

Иногда число нужно разделить не по математическим правилам, а по заданным символам-разделителям. Например, в номере договора АБ-1234/2026 требуется выделить буквенную часть, цифровую часть и год. Здесь поможет комбинация функций ТЕКСТПОСЛЕ(), ТЕКСТДО() (в новых версиях Excel) или ПОИСК() с ПСТР().

Для числа с разделителями (например, 12-345-6789 в ячейке A1):

В Excel 365 и Excel 2021 задача упрощается благодаря новым функциям:

• 🆕 =ТЕКСТДО(A1;"-";1) → 12
• 🆕 =ТЕКСТМЕЖДУ(A1;"-";"-";1) → 345
• 🆕 =ТЕКСТПОСЛЕ(A1;"-";2) → 6789

4. Использование инструмента "Текст по столбцам"

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

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

1. Выделите диапазон ячеек с числами, которые нужно разделить.
2. Перейдите на вкладку Данные → Текст по столбцам.
3. Выберите формат данных: С разделителями или Фиксированная ширина.
4. Укажите разделитель (например, дефис - или пробел).
5. Нажмите Готово — Excel автоматически распределит части числа по соседним столбцам.

Этот метод идеален для импортированных данных, где числа записаны с разделителями (например, CSV-файлы с адресами или телефонными номерами). Главный плюс — скорость: обработка тысяч строк занимает секунды.

⚠️ Внимание: Инструмент "Текст по столбцам" заменяет исходные данные. Если вам нужно сохранить оригинальные значения, предварительно скопируйте их в другой лист или создайте резервную копию файла.

5. Автоматизация с помощью макросов VBA

Если вам регулярно приходится делить числа по одному и тому же шаблону, имеет смысл написать макрос на VBA. Например, следующий код разобьёт число в выделенной ячейке на отдельные цифры и запишет их в соседние ячейки справа:

Sub SplitNumberIntoDigits()
Dim rng As Range
Dim num As String
Dim i As Integer

For Each rng In Selection
If IsNumeric(rng.Value) Then
num = CStr(rng.Value)
For i = 1 To Len(num)
rng.Offset(0, i).Value = Mid(num, i, 1)
Next i
End If
Next rng
End Sub

Чтобы использовать этот макрос:

1. Нажмите Alt + F11, чтобы открыть редактор VBA.
2. Вставьте код в новый модуль (Insert → Module).
3. Вернитесь в Excel, выделите ячейки с числами и запустите макрос через View → Macros.

Для более сложных сценариев (например, разделение чисел с плавающей запятой или выделение разрядов) макрос можно модифицировать. Например, этот код разобьёт число на тысячи, сотни, десятки и единицы:

Sub SplitNumberByPlaceValue()
Dim rng As Range
Dim num As Long
Dim thousands As Long, hundreds As Long, tens As Long, units As Long

For Each rng In Selection
If IsNumeric(rng.Value) Then
num = CLng(rng.Value)
thousands = Int(num / 1000) * 1000
hundreds = Int((num - thousands) / 100) * 100
tens = Int((num - thousands - hundreds) / 10) * 10
units = num - thousands - hundreds - tens

rng.Offset(0, 1).Value = thousands
rng.Offset(0, 2).Value = hundreds
rng.Offset(0, 3).Value = tens
rng.Offset(0, 4).Value = units
End If
Next rng
End Sub

On Error Resume Next

=ЛЕВСИМВ(A1;3)  → код
=ПРАВСИМВ(A1;2) → серия