Excel技巧：将一个单元格中的多行数据拆分成多行

问题描述

在日常工作中，我们经常遇到一个单元格内包含多行数据的情况，例如：

A1: 北京
上海
广州

我们需要将其拆分成三行独立的单元格：

北京
上海
广州

下面介绍几种实用的方法。

方法一：使用“文本分列”功能

1. 选中包含多行数据的单元格或列。
2. 点击“数据”选项卡中的“文本分列”。
3. 选择“分隔符号”，点击“下一步”。
4. 勾选“其他”，然后按下 Ctrl+J 输入换行符（注意：此处看不见光标变化）。
5. 点击“完成”，数据会按行分列。但注意：此方法会将数据拆分成多列而非多行。

如果希望拆分成多行，可以结合转置功能：复制分列后的数据，右键选择性粘贴“转置”。

方法二：使用Power Query（推荐）

1. 选中数据区域，点击“数据” > “从表格/范围”。
2. 在Power Query编辑器中，选中包含多行数据的列。
3. 点击“主页” > “拆分列” > “按分隔符”。
4. 选择“自定义”，输入换行符：在输入框中 按 Ctrl+J 或使用函数 #(lf)。
5. 选择“拆分为行”，点击“确定”。
6. 加载结果到Excel。

方法三：使用公式（适合少量数据）

拆分提取每行内容到不同行

假设数据在A1，在B1输入：

=TRIM(MID(SUBSTITUTE(A1,CHAR(10),REPT(" ",100)),(ROW(A1)-ROW($A$1))*100+1,100))

然后向下填充即可依次提取每一行文本。

动态拆分并展开

使用TEXTJOIN和FILTERXML函数（Excel 365）：

=FILTERXML(""&SUBSTITUTE(A1,CHAR(10),"")&"","//b")

此公式会自动生成一个拆分后的数组，需要横着或竖着填充。

方法四：VBA宏（适合批量处理）

按Alt+F11打开VBA编辑器，插入模块，粘贴以下代码：

Sub SplitCellByLine()
    Dim rng As Range
    Dim cell As Range
    Dim lines As Variant
    Dim i As Long
    Dim outputRow As Long
    Set rng = Selection
    outputRow = rng.Row
    For Each cell In rng
        lines = Split(cell.Value, vbLf)
        For i = LBound(lines) To UBound(lines)
            Cells(outputRow, cell.Column + 1).Value = lines(i)
            outputRow = outputRow + 1
        Next i
    Next cell
End Sub

选中要拆分的单元格，运行宏即可将多行数据拆分到右侧列中。

总结

以上是几种常见的将一个单元格中的多行数据拆分成多行的方法。推荐使用Power Query，因为它灵活且无需公式。根据你的Excel版本和需求选择合适的方法吧！