Разделение столбца в Excel на две части: от простых способов до автоматизации

Работа с данными в Microsoft Excel часто требует трансформации исходных таблиц — и одна из самых распространённых задач: разделение одного столбца на два или более. Например, когда в одной ячейке хранятся фамилия и имя, артикул и наименование товара, или дата с временем. Вручную копировать части текста неэффективно, особенно если строк тысячи. К счастью, в Excel есть как минимум 5 способов автоматизировать этот процесс — от элементарных функций до продвинутых инструментов вроде Power Query.

Но какой метод выбрать? Всё зависит от структуры данных. Если текст разделён запятой, пробелом или другим символом, подойдёт встроенная функция "Текст по столбцам". Для фиксированной длины (например, первые 3 символа — код, остальное — название) пригодятся ЛЕВСИМВ/ПРАВСИМВ. А если нужно разделить сотни файлов по одному шаблону — поможет макрос VBA. В этой статье разберём каждый вариант с примерами, нюансами и предупреждениями о типичных ошибках.

———

1. Способ "Текст по столбцам": разделение по разделителю

Самый универсальный метод для данных, где части текста отделены одним и тем же символом (запятая, точка с запятой, пробел, тире и т.д.). Например, в ячейке хранится "Иванов;Иван" или "123-456-789". Алгоритм работает даже в Excel 2003, но в новых версиях (Excel 2019, Microsoft 365) добавлены удобные предварительные просмотры.

Как это сделать:

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

⚠️ Внимание: Если в данных используются несколько разделителей подряд (например, "Иванов,,Петр"), Excel воспримет пустые ячейки как ошибку. Чтобы избежать этого, на шаге 3 отметьте галочку Считать последовательные разделители одним.

Убедитесь, что в столбце нет объединённых ячеек

Проверьте, что разделитель ОДИНАКОВ во всех строках

Создайте резервную копию таблицы (Ctrl+C → вставить на новый лист)

Удалите лишние пробелы функцией =СЖПРОБЕЛЫ()-->

Пример работы метода:

Метод подходит для 90% случаев, но бессилен, если разделитель нестабилен (например, то запятая, то точка с запятой) или данные неструктурированы. В таком случае придётся комбинировать его с функциями или Power Query.

2. Функции ЛЕВСИМВ, ПРАВСИМВ и ПСТР: разделение по позициям

Когда текст нужно разбить по фиксированному количеству символов, на помощь приходят текстовые функции:

• 🔹 =ЛЕВСИМВ(ячейка; количество) — возвращает символы слева (например, первые 5 знаков).
• 🔹 =ПРАВСИМВ(ячейка; количество) — возвращает символы справа.
• 🔹 =ПСТР(ячейка; старт; длина) — извлекает фрагмент с указанной позиции.

Пример: в ячейке A1 хранится "AR12345Наименование", где первые 7 символов — артикул. Чтобы разделить:

• В B1: =ЛЕВСИМВ(A1; 7) → вернёт "AR12345".
• В C1: =ПРАВСИМВ(A1; ДЛСТР(A1)-7) → вернёт "Наименование".

⚠️ Внимание: Если длина текста в ячейках разная, формула ПРАВСИМВ может вернуть ошибку. Чтобы избежать этого, используйте =ЕСЛИОШИБКА():

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

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

=ПСТР(A1; НАЙТИ("@"; A1)+1; 99)

(где 99 — произвольное большое число, чтобы захватить весь текст до конца).

3. Power Query: разделение с предварительным преобразованием

Power Query (или Get & Transform в Excel 2016+) — мощный инструмент для работы с данными, который позволяет разделять столбцы с предварительной очисткой. Например, если в тексте лишние пробелы, разные разделители или нужно применить несколько правил.

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

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

Sub SplitColumnByDelimiter()
Dim rng As Range
Dim cell As Range
Dim arr() As String

' Выбираем диапазон с данными (столбец A)
Set rng = Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)

' Добавляем два новых столбца справа
rng.Offset(0, 1).Resize(, 2).EntireColumn.Insert

' Разделяем каждую ячейку
For Each cell In rng
If InStr(cell.Value, "-") > 0 Then
arr = Split(cell.Value, "-")
cell.Offset(0, 1).Value = arr(0) ' Первая часть
cell.Offset(0, 2).Value = arr(1) ' Вторая часть
' Если частей больше, добавьте cell.Offset(0, 3).Value = arr(2) и т.д.
End If
Next cell
End Sub

If InStr(cell.Value, "-") = 0 Then cell.Offset(0, 1).Value = cell.Value

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

=ПСТР(A1; НАЙТИ("("; A1)+1; НАЙТИ(")"; A1)-НАЙТИ("("; A1)-1)

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