Excel: як розділити текст із роздільниками на рядки

Скажімо, ось таблиця з трьома стовпцями на робочому аркуші, у першому вказано рівні цін, у другому — назви фруктів, розділених комами в клітинках, а в третьому стовпці — ціни на фрукти. Завдання полягає в тому, щоб розділити розділені назви фруктів на рядки та повторити відповідні рівні цін і рядки цін, як показано на знімку екрана нижче:

Тут представлено два методи вирішення цієї задачі.

Розділіть текст із роздільниками на рядки за допомогою VBA

Розділіть розділений текст на рядки за допомогою Power Query

Ось код VBA, який може швидко розділити розділений текст на рядки.

1. прес інший + F11 клавіші, щоб увімкнути Microsoft Visual Basic для додатків вікна.

2. клацання Insert вкладка> Модулі щоб створити новий порожній модуль.

3. Скопіюйте та вставте наведений нижче код у порожній модуль.

VBA: розділити текст із роздільниками на рядки

Public Sub SplitTextInCellsToRows()
'UpdatebyExtendoffice20220622
    Dim xSRg, xIptRg, xCrRg, xRg As Range
    Dim xSplitChar As String
    Dim xArr As Variant
    Dim xFNum, xFFNum, xRow, xColumn, xNum As Integer
    Dim xWSh As Worksheet
    Set xSRg = Application.InputBox("Select a range:", "Kutools for Excel", , , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    xSplitChar = Application.InputBox("Type delimiter:", "Kutools for Excel", , , , , , 2)
    If xSplitChar = "" Then Exit Sub

    Application.ScreenUpdating = False
    xRow = xSRg.Row
    xColumn = xSRg.Column
    Set xWSh = xSRg.Worksheet
    For xFNum = xSRg.Rows.Count To 1 Step -1
        
        Set xRg = xWSh.Cells.Item(xRow + xFNum - 1, xColumn)
        Debug.Print xRg.Address
        xArr = Split(xRg, xSplitChar)
        For xFFNum = LBound(xArr) To UBound(xArr)
            xRg.EntireRow.Copy
            xRg.Offset(1, 0).EntireRow.Insert Shift:=xlShiftDown
            xRg.Worksheet.Cells(xRow + xFNum, xColumn) = xArr(xFFNum)
        Next
        xRg.EntireRow.Delete
    Next
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

4. прес F5 клавішу, щоб натиснути кнопку запуску  щоб активувати код, з’явиться діалогове вікно, у якому ви зможете вибрати стовпець, який виключає заголовок, який містить текст із роздільниками, який потрібно розділити на рядки. Натисніть OK.

5. Після цього з’явиться друге діалогове вікно для введення роздільника, який ви використовуєте. Тут вводиться кома (,). Натисніть OK.

Тепер тексти з роздільниками розділено на рядки, а інші пов’язані стовпці повторюються.

  VBA змінить вихідні дані, вам краще зберегти їх копію раніше.

Якщо ви використовуєте Excel 2013 або новіших версій, Power Query буде хорошим вибором для вирішення цього завдання.

1. Виберіть діапазон даних, щоб клацнути дані > З таблиці/діапазону.

2. У вискакуванні Створити таблицю діалогове вікно, перевірте У моїй таблиці є заголовки як вам потрібно, і натисніть OK.

Тоді Power Query редактор відображається вікно, і в ньому відображаються дані.

3. Клацніть стовпець, у якому потрібно розділити тексти з роздільниками на рядки, і клацніть Перетворення вкладка> Розділена колонка > За роздільником.

Або ви також можете вибрати стовпець і клацнути правою кнопкою миші на заголовку стовпця, щоб вибрати цю функцію в контекстному меню.

4 В Розділити стовпець роздільником виберіть потрібний роздільник із Виберіть або введіть роздільник розділу, а потім виберіть Кожне входження роздільника параметр, а потім розгорніть Додаткові параметри розділ на вибір ряди варіант Натисніть OK.

Тепер розділені тексти розділено на рядки.

5. Потім закрийте вікно, з’явиться діалогове вікно, натисніть тримати кнопки.

Потім буде створено новий аркуш із таблицею.

---

Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

• Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
• Об’єднати клітинки / рядки / стовпці та Ведення даних; Вміст розділених комірок; Поєднуйте повторювані рядки та суму / середнє... Запобігання дублюючим клітинам; Порівняйте діапазони...
• Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
• Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
• Улюблені та швидко вставлені формули, Діапазони, діаграми та зображення; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
• Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
• Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
• Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
• Групування зведеної таблиці за номер тижня, день тижня та багато іншого ... Показати розблоковані, заблоковані клітини за різними кольорами; Виділіть клітини, які мають формулу / назву...

Детальніше ... Повні можливості 30-денної безкоштовної пробної версії ... Придбати ... 

---

Вкладка Office - надає інтерфейс із вкладками в Office і значно полегшує вашу роботу

• Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
• Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
• Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!

Детальніше ... Повні можливості 30-денної безкоштовної пробної версії ... Придбати ...