KutoolsforOffice — 一套方案，五大工具。事半功倍。

如何在 Excel 中将多行单元格内容拆分为单独的行或列？

作者Siluvia修改日期

在许多实际场景中，您可能会发现 Excel 单元格中的内容在单个单元格内显示为多行。这通常是因为用户输入数据时按下了 Alt + Enter，从而在单元格内插入了换行符（回车符）。为了便于数据分析、排序或进一步处理，通常需要将这些多行内容拆分，使每个项目独占一行或一列。然而，Excel 并未提供直接的内置功能来实现此操作，这对许多用户而言颇具挑战。本文为您介绍几种高效方法，助您快速将由 Alt + Enter 分隔的多行内容拆分为独立的行或列！

使用“文本分列”功能将多行单元格内容拆分为独立列
使用 Kutools for Excel 轻松将多行单元格内容拆分为独立行或列
使用 VBA 宏将多行单元格内容拆分为行或列

使用“文本分列”功能将多行单元格内容拆分为独立列

处理通过 Alt + Enter 插入换行符的数据时，可使用文本分列功能，高效将内容拆分为独立列。此方法特别适用于将每个换行符分隔的条目水平扩展至同一行的多个列。但请注意，该功能仅支持拆分为列，无法拆分为行。

1. 选择包含多行内容、需拆分为独立列的单元格，然后点击数据> 文本分列。参见截图：

单击“数据”>“文本分列”

2. 在第一个文本分列向导对话框中，选择分隔符号选项，然后单击下一步按钮。

在对话框中选择“分隔符号”选项

3. 在第二个文本分列向导对话框中，仅勾选其他复选框，按住 Alt 键，并在随后的空白框中输入数字 0010，然后单击下一步按钮。参见截图：

此步骤至关重要：输入 Alt+0010，即可插入 Excel 用于分隔单元格内各行的换行符。务必在按住 Alt 键的同时，在数字小键盘上输入 0010，以确保分隔符被正确识别。如果使用的是无数字小键盘的笔记本电脑，可能需要启用 NumLock 或使用屏幕键盘进行准确输入。

勾选“其他”复选框，按住 Alt 键并输入数字 0010

4. 在第三个文本分列向导对话框中，于目标区域框中选择一个单元格以放置拆分后的内容，最后单击完成按钮。

默认情况下，Excel 在拆分数据时会覆盖所选单元格右侧的现有内容。为避免数据丢失，建议指定一个不与重要数据重叠的目标单元格，或在拆分前将原始数据复制到新区域。

选择一个单元格以放置拆分后的内容

随后，所选多行单元格的内容将如以下截图所示，拆分为独立的列。

所选多行单元格的内容被拆分为单独的列

注意：如果发现生成了空列，可能是由于单元格内容末尾存在多余的换行符或空格。您可以手动删除这些内容，或使用 Excel 的 TRIM 或 CLEAN 函数进行预处理。

使用 Kutools for Excel 将多行单元格内容拆分为独立行或列

如果需要将多行单元格内容拆分为多个行（而不仅仅是列），Excel 内置的“文本分列”功能就无法满足需求。此时，Kutools for Excel 提供的分割单元格工具将成为更灵活便捷的选择。该工具允许您根据换行符将数据拆分到行或列，操作更高效、灵活——尤其适用于大型数据集或重复性任务，助您轻松提升工作效率！

Kutools for Excel 提供 300 多项高级功能，简化复杂任务，提升创造力与效率。集成 AI 能力，Kutools 精准自动化任务，让数据管理变得轻松自如。Kutools for Excel 的详细信息……         免费试用……

1. 选择包含要拆分的多行条目的单元格，然后点击 Kutools > 合并和拆分 > 分割单元格。参见截图：

单击 Kutools 的“拆分单元格”功能

2. 在分割单元格对话框中，完成以下步骤：

  • （1) 若希望将每行内容置于新行中，请选择分割至多行；否则，请选择分割至多列以按列拆分。
  • （2) 在拆分依据下，选择换行选项，即可使用换行符作为分隔符。
  • （3) 单击确定按钮，确认您的设置。

此步骤具有灵活性——请确保选择与您的数据结构匹配的分隔符，并在继续前检查预览以确保准确性。

在对话框中指定选项

3. 当对话框出现时，选择一个空白单元格以指定拆分文本的放置位置，然后单击确定。

选择一个空白单元格以放置拆分后的文本

多行单元格现已按如下方式拆分为独立的列或行。

多行单元格被拆分为列或行

如果您想免费试用（30 天）此工具，请点击此处下载，然后按照上述步骤操作即可。

使用 VBA 宏将多行单元格内容拆分为行或列

对于熟悉任务自动化的用户而言，VBA 宏提供了一种高效且可定制的方式来按换行符拆分多行单元格，并将每个项目输出到独立的行或列。此方法非常适合批量处理、创建可重用解决方案，或在大型表格中就地拆分数据。

借助 VBA，您可以控制输出目标（行或列）、微调分隔符并自动化重复性工作流，从而显著节省高级用户处理大型数据集的时间。

1. 单击开发工具>Visual Basic，即可访问 VBA 编辑器。在 Microsoft Visual Basic for Applications 窗口中，单击插入> 模块，并将以下代码复制到空白模块窗口中：

Sub SplitMultilineCellsToRows()
    ' Split selected multiline cell contents to separate rows below each cell
    On Error Resume Next
    Dim Cell As Range
    Dim SplitArr() As String
    Dim i As Integer
    xTitleId = "KutoolsforExcel"
    
    For Each Cell In Selection
        If InStr(Cell.Value, Chr(10)) Then
            SplitArr = Split(Cell.Value, Chr(10))
            
            For i = UBound(SplitArr) To 1 Step -1
                Cell.Offset(i, 0).EntireRow.Insert
                Cell.Offset(i, 0).Value = SplitArr(i)
            Next i
            
            Cell.Value = SplitArr(0)
        End If
    Next Cell
End Sub

2. 要运行代码，请在工作表中选择目标单元格，点击运行按钮按钮，或在 VBA 窗口中按 F5，即可立即将多行单元格内容拆分为行。

若要将此代码调整为拆分为列，请使用以下宏：

Sub SplitMultilineCellsToColumns()
    ' Split selected multiline cell contents to separate columns to the right
    On Error Resume Next
    Dim Cell As Range
    Dim SplitArr() As String
    Dim i As Integer
    xTitleId = "KutoolsforExcel"
    
    For Each Cell In Selection
        If InStr(Cell.Value, Chr(10)) Then
            SplitArr = Split(Cell.Value, Chr(10))
            For i = 0 To UBound(SplitArr)
                Cell.Offset(0, i).Value = SplitArr(i)
            Next i
        End If
    Next Cell
End Sub

同样，选择目标单元格，返回 VBA 编辑器并运行此宏。每个多行单元格中的值将被拆分到右侧的列中。

提示、注意事项和故障排除：使用 VBA 解决方案前，请务必先保存 Excel 文件。宏操作无法通过常规“撤销”快捷键撤回，且新插入的行/列可能会覆盖现有数据（若工作表未预留足够空白区域）。首次使用 VBA 时，建议先在示例数据上测试，确保操作安全无忧！

使用 Kutools for Excel 轻松将多行单元格内容拆分为独立行或列

 

最佳办公效率工具

🤖KUTOOLS AI 助手：基于以下内容革新数据分析：智能执行   |  生成代码|  创建自定义公式  |  数据分析及生成图表|  调用 Kutools Functions……
热门功能：查找、高亮或标记重复项   |  删除空白行   |  合并列或单元格且不丢失数据   |  不使用公式的四舍五入……
高级 LOOKUP：多条件 VLookup  |  多值 VLookup  |   跨多工作表 VLookup   |   模糊查找……
高级下拉列表：快速创建下拉列表   |  级联下拉列表   |  多选下拉列表……
列管理器：添加指定数量的列|移动列|切换隐藏列的可见性状态|比较区域与列……
特色功能：网格聚焦   |  设计视图   |增强编辑栏   | 工作簿和表管理器   |  资源库（自动文本）|  日期提取   |  汇总工作表  |  加密/解密单元格   | 按列表发送邮件   |  超级筛选   |   特殊筛选（筛选粗体单元格/斜体/删除线……） ......
精选 15 工具集：12 文本工具（添加文本，删除特定字符，……）|   50+ 图表 类型（甘特图，……）|   40+ 实用公式（基于生日计算年龄，……）|   19 插入工具（插入二维码，从路径插入图片，……）|   12 转换工具（小写金额转大写，汇率转换，……）|   7 合并和拆分工具（高级合并行，分割单元格，……）|……更多
在您的首选语言中使用 Kutools – 支持英语、西班牙语、德语、法语、中文及 40+ 种其他语言！

使用 Kutools for Excel 大幅提升您的 Excel 技能，体验前所未有的高效。Kutools for Excel 提供 300 多项高级功能，助您提升生产力、节省时间。立即点击此处，获取您最需要的功能……

Office Tab 为 Office 带来标签式界面，让您的工作更轻松

  • 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中启用标签式编辑和阅读。
  • 在同一个窗口的新标签页中打开并创建多个文档，而非在新窗口中。
  • 将您的工作效率提升 50%，每天减少数百次鼠标点击！

所有 Kutools 插件，一个安装程序

Kutools for Office 套件捆绑了适用于 Excel、Word、Outlook 和 PowerPoint 的插件以及 Office Tab Pro，非常适合需要跨多个 Office 应用高效协作的团队。

ExcelWordOutlookTabsPowerPoint
  • 一体化套件— Excel、Word、Outlook 和 PowerPoint 插件 + Office Tab Pro
  • 一个安装程序，一个许可证— 几分钟内完成设置（支持 MSI）
  • 协同效果更佳— 在多个 Office 应用中实现高效协同
  • 30 天全功能试用— 无需注册，无需信用卡
  • 超值之选— 比单独购买插件更省钱