KutoolsforOffice — Одно решение — пять мощных инструментов.Меньше усилий — больше результата.

Как разделить данные по разделителю и преобразовать результат в столбец в Excel?

АвторСуньДата изменения
разделить данные по разделителю и переставить их в столбец

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

Разделить данные по разделителю и преобразование в столбец


Разделить данные по разделителю и преобразование в столбец с помощью формулы (Excel 365)

В Excel 365 эту трансформацию можно выполнить динамически с помощью современных функций, таких как TEXTSPLIT и TEXTJOIN.

Щёлкните по ячейке, в которую нужно поместить результат, введите приведённую ниже формулу и нажмите клавишу Enter. Ячейки, содержащие текстовые строки с запятыми в качестве разделителей, мгновенно преобразуются в список. См. скриншот:

=TRANSPOSE(TEXTSPLIT(TEXTJOIN(", ", TRUE, A2:A5), ", "))
разделить данные по разделителю и переставить их в столбец с помощью формулы

 

Пояснение к этой формуле:
  • TEXTJOIN(",", ИСТИНА; A2:A5): Объединяет все значения из диапазона A2:A5 в одну строку, разделяя их запятыми.
  • TEXTSPLIT(…; ","): Разделяет объединённый текст на отдельные значения везде, где встречается запятая.
  • ТРАНСП(…): Преобразует переданную строку значений в вертикальный столбец.

Разделить данные по разделителю и преобразование в столбец с помощью Kutools для Excel

Для пользователей, работающих со старыми версиями Excel (2016/2019 и др., в которых отсутствует функция TEXTSPLIT), Kutools для Excel предлагает идеальное решение с помощью своей функции Разделить на несколько строк. Эта функция позволяет быстро разбить содержимое ячеек на отдельные значения в одном столбце по заданному разделителю — и сэкономить ваше время и усилия!

Kutools для Excelпредлагает более 300 расширенных функций для упрощения сложных задач, повышая креативность и эффективность.Интегрировано с возможностями ИИ, Kutools автоматизирует задачи с высокой точностью, делая управление данными простым и удобным.Подробная информация о Kutools для Excel…         Бесплатная пробная версия…

После установки Kutools для Excelвыполните следующие действия:

  1. Нажмите Kutools > Объединить и разделить > Разделить на несколько строк. См. скриншот:
    нажмите функцию «Разделить данные на строки» в Kutools
  2. В диалоговом окне Разделить на несколько строкукажите следующие параметры:
    • Выделите ячейки, которые необходимо разделить;
    • В разделе Разделительвыберите Другой, затем введите свой разделитель (например, запятую и пробел), чтобы определить, как следует разделять содержимое ячеек;
    • Наконец, нажмите кнопку ОК.
      укажите параметры в диалоговом окне

Результат: выделенные ячейки разделены на столбцы с использованием указанных разделителей.
разделить данные по разделителю и переставить их в столбец с помощью Kutools

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

Разделить данные по разделителю и преобразование в столбец с помощью кода VBA

Далее мы покажем, как с помощью VBA разделить содержимое ячеек по указанному разделителю и преобразовать результаты в единый столбец.

1. Нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений.

2. Нажмите Вставка > Модуль, затем вставьте приведённый ниже код в новое окно Модуля.

VBA: Разделение и транспонирование

Sub Vertical()
'Updateby Extendoffice
    Dim i As Long, strTxt As String
    Dim startP As Range
    Dim xRg As Range, yRg As Range
    On Error Resume Next
    Set xRg = Application.InputBox _
    (Prompt:="Range Selection...", _
    Title:="Kutools For Excel", Type:=8)
    i = 1
    Application.ScreenUpdating = False
    For Each yRg In xRg
        If i = 1 Then
            strTxt = yRg.Text
            i = 2
        Else
            strTxt = strTxt & "," & yRg.Text
        End If
    Next
    Application.ScreenUpdating = True
    Set startP = Application.InputBox _
    (Prompt:="paste range...", _
    Title:="Kutools For Excel", Type:=8)
    ary = Split(strTxt, ",")
    i = 1
    Application.ScreenUpdating = False
    For Each a In ary
        startP(i, 1).Value = a
        i = i + 1
    Next a
    Application.ScreenUpdating = True
End Sub

3. Нажмите клавишу F5, чтобы запустить код. После этого появится диалоговое окно, в котором можно выбрать диапазон для разделения и выполнить транспонирование.
код VBA для выбора списка данных

4. Нажмите ОК. Появится диалоговое окно для выбора места размещения данных.
код VBA для выбора ячейки для вывода результата

5. Нажмите ОК, и выделенный диапазон будет разделён по запятым и транспонирован.
разделить данные по разделителю и переставить их в столбец с помощью кода VBA

Примечание: В коде запятая в выражениях strTxt & ","и ary = Split(strTxt, ",")является разделителем, на основе которого будет выполняться Разделить данные; вы можете изменить её по своему усмотрению.

🔚 Заключение

Все методы эффективно справляются с основной задачей — разделением данных по разделителям, а оптимальный выбор зависит от вашего уровня технической подготовки и конкретных требований.

  • Для большинства пользователей Excel 365 подход на основе формул обеспечивает оптимальный баланс между функциональностью и удобством поддержки.
  • Kutools идеально подходит для частых и сложных преобразований, выполняемых пользователями без навыков программирования.
  • VBA обеспечивает максимальный контроль для создания индивидуальных автоматизированных решений в корпоративной среде.

Выберите метод в зависимости от ваших конкретных потребностей. Если вы хотите узнать больше полезных советов и приёмов работы в Excel, на нашем сайте представлены тысячи обучающих материалов, которые помогут вам освоить Excel.

Лучшие инструменты повышения продуктивности в Office

🤖KUTOOLS AI Помощник: Преобразуйте Анализ данных с помощью:Интеллектуального выполнения   |  Генерации кода|  Создания пользовательские формулы  |  Анализа данных и построения диаграмм|  Вызова Расширенные функции
Популярные функции:Поиск, выделение или Отметить дубликаты   |  Удалить пустые строки   |  Объединить столбцы или ячеек без потери данных   |  Округление без использования формул
Супер ПОИСК:VLookup по нескольким критериям  |  VLookup по нескольким значениям  |   VLookup по нескольким листам   |   Распознавание нечетких соответствий
Расширенный раскрывающийся список:Быстрое создание выпадающего списка   |  Зависимый выпадающий список   |  Выпадающий список с множественным выбором
Управление столбцами:Добавление заданного количества столбцов|Перемещение столбцов|Переключение видимости скрытых столбцов|Сравнение диапазонов и столбцов
Избранные функции:Сетка фокусировки   |  Просмотр дизайна   |Улучшенная строка формулы   | Управление рабочими книгами и листами   |  Библиотека ресурсов(автотекст)|  Выбор даты   |  Объединить листы  |  Шифрование/Расшифровать ячейки   | Отправка писем по списку   |  Супер фильтр   |   Специальный фильтр(Фильтр ячеек с жирным шрифтом/курсив/зачёркивание…) …
Лучшие наборы инструментов 15:12 Текстовыеинструменты(Добавить текст,Удалить определенные символы, …)|   50+Типыдиаграмм(Диаграмма Ганта, …)|   40+ Практические формулы(Рассчитать возраст на основе даты рождения, …)|   19 Инструментывставки(Вставить QR-код,Вставка изображения по пути, …)|   12 Инструментыпреобразования(Преобразовать в слова,Конвертация валют, …)|   7 Объединить и разделитьИнструменты(Расширенное объединение строк,Разделить ячейки, …)|… и многое другое
Используйте Kutools на предпочитаемом языке — поддержка английского, испанского, немецкого, французского, китайского и ещё 40+ языков!

Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…


Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу

  • Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
  • Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!

Все надстройки Kutools — один установщик

Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.

ExcelWordOutlookTabsPowerPoint
  • Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
  • Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
  • Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
  • 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
  • Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек