从由行分隔的单元格中提取文本

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