如何在 Excel 中将单元格内容拆分为多行（场景 + 工具对比）

提示：可以根据数据的分隔方式将分隔符 "," 更改为 ";" 或 "|"。

步骤 2. 按 Enter 键。

方法 3：Power Query – 拆分和扩展行（Microsoft 2016 及更高版本）

Power Query 非常适合结构化、可重复的操作。它功能强大、刷新方便，非常适合批量数据转换。

适用场景：场景 1（仅拆分目标单元格）和场景 2（拆分单元格并保留其他列数据）

步骤：以场景 1（仅拆分目标单元格）为例

步骤 1. 选择范围，转到 数据 > 获取和转换 > 来自表格/范围。

一个 

步骤 2. 在创建表格窗口中，点击 确定。（如果选定范围有标题，请勾选 我的表格有标题。）

步骤 3. 在 Power Query 编辑器中，使用 按分隔符拆分列。

步骤 4. 选择或输入分隔符，然后点击 高级 以展开选项，选择 拆分为行，然后点击 确定。

步骤 5. 选择 关闭并加载 > 关闭并加载 或 关闭并加载至。

相同步骤适用于场景 2（在保留其他列数据的同时拆分单元格）——让我们查看结果。

目标单元格范围：

结果：

注意：在 Power Query 编辑器窗口中，仅选择要拆分为行的目标列，然后单击 按分隔符拆分列 下的选项。

提示：添加 Trim 和 Clean 步骤以修复空格或特殊字符。

方法 4：Kutools 插件 – 点击即可拆分

如果您经常拆分单元格并且喜欢基于 GUI 的解决方案，Kutools 是一个出色的工具。它可以将复杂操作简化为几次点击。

适用场景：场景 1（仅拆分目标单元格）和场景 2（拆分单元格并保留其他列数据）

步骤：场景 1（仅拆分目标单元格）

步骤 1. 选择目标单元格。

步骤 2. 转到 Kutools > 合并与拆分 > 拆分单元格。

步骤 3. 选择 拆分为多行 并定义分隔符。点击 确定。/p>

步骤 4. 选择目标单元格。点击 确定。

步骤：场景 2（拆分单元格并保留其他列数据）

步骤 1. 选择要拆分为多行的列。

步骤 2. 转到 Kutools > 合并与拆分 > 拆分数据到多行。

步骤 3. 定义分隔符。点击 确定。

相同步骤适用于场景 2（在保留其他列数据的同时拆分单元格）——让我们查看结果。

目标单元格范围：

结果：

注意：30 天试用版提供全部功能供测试。

方法 5：VBA 脚本 – 完全自定义控制

对于具有编程知识的用户，VBA 提供了极大的灵活性。您可以根据确切的数据布局和业务规则定制脚本。

适用场景：场景 1（仅拆分目标单元格）和场景 2（拆分单元格并保留其他列数据）

步骤：

步骤 1. 按 Alt + F11 打开 VBA 编辑器。

步骤 2. 单击 插入 > 模块。

步骤 3. 复制并粘贴以下 VBA 代码。

场景 1 仅拆分目标单元格

'Update by Extendoffice
Sub SplitCellToRows_Simple()
    Dim InputCell As Range
    Dim Values As Variant
    Dim i As Long

  
    Set InputCell = Range("A1") ' change A1 to your target cell

    Values = Split(InputCell.Value, ",") 
    For i = 0 To UBound(Values)
        InputCell.Offset(i, 1).Value = Trim(Values(i))
    Next i
End Sub

场景 2 拆分单元格并保留其他列数据

'Update by Extendoffice
Sub SplitRowsWithOtherColumns()
    Dim ws As Worksheet
    Dim LastRow As Long, i As Long
    Dim arr As Variant, j As Long
    Dim SplitVals As Variant
    Dim CurrentRow As Long

    Set ws = ActiveSheet
    LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    For i = LastRow To 2 Step -1
        If InStr(ws.Cells(i, 2).Value, ",") > 0 Then
            SplitVals = Split(ws.Cells(i, 2).Value, ",")

            For j = UBound(SplitVals) To 1 Step -1
                ws.Rows(i + 1).Insert Shift:=xlDown
                ws.Cells(i + 1, 1).Value = ws.Cells(i, 1).Value
                ws.Cells(i + 1, 2).Value = Trim(SplitVals(j))
            Next j

            ws.Cells(i, 2).Value = Trim(SplitVals(0))
        End If
    Next i
End Sub

注意：此 VBA 脚本配置为专门处理数据位于 A 到 B 列中且要拆分的值在 B 列中的情况。

💡提示：

• 运行宏之前始终备份数据。
• 根据数据格式将脚本中的 "," 替换为实际分隔符（例如，分号使用 ";" 或管道符使用 "|"）。

常见问题

• 空白行或列：通常由尾部分隔符或隐藏空格引起。
• 合并单元格错误：开始前取消合并单元格。
• Power Query 未刷新：修改源数据后请记住点击刷新。
• 错误的分隔符：分号与逗号的错误可能会导致整个结果错误。

相关文章：

• 转置范围工具：轻松将多行转换为列和行
• 单位转换工具：快速将十进制数转换为二进制/八进制/十六进制数或反之亦然