Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

doc конвертировать значения запятой в список 1

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

Преобразование текстовой строки, разделенной запятыми, в строки с кодом VBA

Преобразование текстовой строки, разделенной запятыми, в строки с помощью Kutools for Excel


Преобразование текстовой строки, разделенной запятыми, в строки с кодом VBA


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

1, Удерживайте Alt + F11 ключей в Excel, и он открывает Microsoft Visual Basic для приложений окна.

2. Щелчок Вставить > модуль, и вставьте следующий макрос в модуль Окно.

Код VBA: конвертировать текстовую строку, разделенную запятыми, в строки или список

Sub RedistributeCommaDelimitedData()
'Updateby Extendoffice 2015924
    Dim xArr() As String
    Dim xAddress As String
    Dim Rg As Range
    Dim Rg1 As Range
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set Rg = Application.InputBox("please select the data range:", "Kutools for Excel", xAddress, , , , , 8)
    If Rg Is Nothing Then Exit Sub
    Set Rg = Application.Intersect(Rg, Rg.Parent.UsedRange)
    If Rg Is Nothing Then Exit Sub
    Set Rg1 = Application.InputBox("please select output cell:", "Kutools for Excel", , , , , , 8)
    If Rg1 Is Nothing Then Exit Sub
    xArr = Split(Join(Application.Transpose(Rg.Value), ","), ",")
    Rg1.Resize(UBound(xArr) + 1) = Application.Transpose(xArr)
    Rg1.Parent.Activate
    Rg1.Resize(UBound(xArr) + 1).Select
End Sub

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

doc конвертировать значения запятой в список 2

4, И нажмите OK, в следующем диалоговом окне укажите ячейку, в которой вы хотите вывести результат, см. снимок экрана:

doc конвертировать значения запятой в список 3

5. Щелчок OK , выбранные значения ячейки, разделенные запятой, были преобразованы в список строк. Смотрите скриншот:

doc конвертировать значения запятой в список 4


Преобразование текстовой строки, разделенной запятыми, в строки с помощью Kutools for Excel

Если у вас есть Kutools for Excel, С его Сплит-ячейки вы можете быстро разделить значения ячейки, разделенные запятыми, на несколько строк или столбцов на основе разделителя запятой по мере необходимости.

Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно попробовать без ограничений в 60-дни.

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

1, Выберите значения ячеек, которые вы хотите преобразовать в строки на основе разделителя запятой.

2, Затем нажмите Kutools > Текст > Сплит-ячейки, см. снимок экрана:

doc конвертировать значения запятой в список 5 5

3. В Сплит-ячейки диалоговое окно, выберите Разделить на строки вариант под Тип: раздел, а затем из Укажите разделитель раздел, проверка Другое и затем введите запятую в текстовое поле, см. снимок экрана:

doc конвертировать значения запятой в список 6 6

4, Затем нажмите Ok, и еще один диалог выскочит, чтобы напомнить вам выбрать ячейку, чтобы поместить результат, см. снимок экрана:

doc конвертировать значения запятой в список 7

5, Затем нажмите Ok , ячейки, разделенные запятыми, были разделены на несколько строк на основе разделителя запятой, см. снимок экрана:

doc конвертировать значения запятой в список 8

Нажмите, чтобы узнать больше об этой функции Split Cells ...

Скачать и бесплатно пробную версию Kutools для Excel сейчас!


Демо: конвертировать текстовую строку, разделенную запятыми, в строки с помощью Kutools for Excel

Kutools for Excel: с более чем 200 удобными надстройками Excel, бесплатно попробовать без ограничений в 60-дни. Скачать и бесплатно пробную версию!


Статьи по теме:

Как разбить ячейки на несколько столбцов или строк с помощью возврата каретки?

Как разбить значения ячеек на несколько столбцов в Excel?


Kutools для Excel - лучший инструмент для повышения производительности в офисе Повысьте производительность на 80%

  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.
вкладка kte 201905

Вкладка «Office» предоставляет интерфейс с вкладками для Office и упрощает работу

  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    eviakhan · 2 years ago
    update to work for a single input cell (mentioned by Sid posted before me). Probably a way to do this for both scenarios, but this worked for me, I had the same issue.

    Sub RedistributeCommaDelimitedData_singleCell()

    'Updateby Extendoffice 201592

    Dim xArr() As String

    Dim xAddress As String

    Dim Rg As Range

    Dim Rg1 As Range

    On Error Resume Next

    xAddress = Application.ActiveWindow.RangeSelection.Address

    Set Rg = Application.InputBox("please select the data range:", "Kutools for Excel", xAddress, , , , , 8)

    If Rg Is Nothing Then Exit Sub

    Set Rg = Application.Intersect(Rg, Rg.Parent.UsedRange)

    If Rg Is Nothing Then Exit Sub

    Set Rg1 = Application.InputBox("please select output cell:", "Kutools for Excel", , , , , , 8)

    If Rg1 Is Nothing Then Exit Sub



    ' xArr = Split(Join(Application.Transpose(Rg.value), ","), ",") -------- need this if you have multiple input cells in your input range (Rg)

    ' replace with this for single input cell for Rg:

    xArr = Split(Rg.value, ",")

    Rg1.Resize(UBound(xArr) + 1) = Application.Transpose(xArr)

    Rg1.Parent.Activate

    Rg1.Resize(UBound(xArr) + 1).Select



    End Sub
  • To post as a guest, your comment is unpublished.
    Sid · 2 years ago
    Hi,
    I have a single row but this formula do not work for single row while it works for multiple rows could you guide on that would be a great help
    Thanks