Извлечение текста из ячейки, разделенной линиями

Question

Я новичок в такого рода задачах, и меня очень смущает, как извлечь некоторый текст из Cell.

Это звучит очень просто, но позвольте мне объяснить. Я экспортировал некоторую информацию о некоторых ролях для некоторых из моих сотрудников, но он поместил всю информацию в одну ячейку в следующем формате:

Production Line




Working with Operations Manager




Oversee Production Line

и так далее.

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

Опять позвольте мне объяснить.

Cell A1 - Production Line
Cell A2 - working with operations Manager
Cell A3 - Oversee Production Line

Еще одна проблема - неопределенное количество характеристик.

Спасибо за вашу помощь.

Answer 1

Предполагая, что текст находится в ячейке B1 (может быть легко изменен), вы можете использовать VBA для этого:

Sub ExtractFromCell()

    Dim lines() As String
    Dim i As Integer, a As Integer

    a = 1
    lines = Split(Range("B1"), Chr(10))

    For i = LBound(lines) To UBound(lines)
        If lines(i) <> "" Then
            Cells(a, 1) = lines(i)
            a = a + 1
        End If
    Next


End Sub