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

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

1 个答案: