如何在Excel中将单元格内容拆分为多行（场景+工具对比）
本指南将引导您了解如何在Excel中将单元格的内容拆分为多行。它涵盖了两种常见场景：一种是仅拆分目标单元格（忽略其他列），另一种是在保留其余行数据的同时拆分单元格。提供了多种方法来有效处理这两种情况，从内置的Excel功能到高级工具如Power Query、VBA和第三方插件。
两种常见的拆分场景
根据是否需要保留数据集中其他列的内容，拆分数据可以采取多种形式。这里我们定义了两种主要方法，以便您可以选择最适合需求的方式。
场景1：仅拆分目标单元格（忽略其他列）
有时，您只关心单个单元格中的值。您希望将其拆分为多行以便于阅读，而无需复制同一行中的任何关联数据。
示例
A,B,C
结果：
A
B
C
使用场景：轻量级的数据清理或显示任务，其他列无关紧要。
场景2：拆分单元格并保留其他列数据
在其他情况下，您需要每个拆分的值与原始行的数据配对——本质上是将行扩展为多个条目。
示例
美国 | A,B,C
结果：
美国 | A
美国 | B
美国 | C
使用场景：数据规范化，保持列之间的关系至关重要。
- 方法1：Excel原生功能（文本到列+转置粘贴选项）
- 方法2：TRANSPOSE(TEXTSPLIT))函数–（Microsoft 365）
- 方法3：Power Query – 拆分并扩展行（适用于Microsoft 2016及更高版本）
- 方法4：Kutools插件 – 点击拆分
- 方法5：VBA脚本 – 完全自定义控制
何时需要将单元格拆分为多行？
在深入探讨方法之前，了解为什么需要拆分单元格非常重要。此操作通常是数据清洗、重组或可视化工作流程的一部分。
典型用例包括：
- 单列中的多个值：例如一起存储的标签、ID或地址。
- 数据透视表或图表：更适合标准化的数据格式。
- 导入数据清理：尤其是来自CRM导出或调查工具的数据。
- 数据标准化：使您的表格更易于数据库友好和分析准备。
拆分单元格的逐步方法
现在您已经了解了场景，让我们探索不同的拆分方法——从内置功能到高级自动化。选择适合您的技术舒适度和使用频率的方法。
方法1：Excel原生功能（文本到列+转置粘贴选项）
这是一种简单直接的手动方法，用于一次性案例，仅使用Excel的内置功能。
适用场景：场景1 仅拆分目标单元格（忽略其他列）
步骤：
第1步：选择单元格。
第2步：选择数据 > 文本到列。
第3步：在“转换文本到列向导”中，
选择分隔符，点击下一步。
选择逗号，点击下一步。
选择目标单元格，点击完成。
现在单元格通过逗号被拆分为几个列。
第4步：选择拆分后的单元格，并按Ctrl + C键复制它们。右键单击目标单元格，在“粘贴选项”下，选择“转置”图标。
内容被转置为行。
| 优点 | 缺点 |
|
|
方法2：TRANSPOSE(TEXTSPLIT))函数–（Microsoft 365）
此方法结合TEXTSPLIT函数（基于分隔符拆分文本）与TRANSPOSE，即时将拆分的值垂直显示在行中。
适用场景：场景1 仅拆分目标单元格（忽略其他列）
步骤：
第1步：在希望垂直列表开始的空白单元格中输入公式。
公式示例：单元格A1是用于拆分到行的目标单元格。
在这种情况下，公式为
第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未刷新：记住在修改源数据后点击刷新。
- 错误的分隔符：分号与逗号的错误可能导致整个结果出错。
相关文章：
最佳Office办公效率工具
| 🤖 | Kutools AI 助手：以智能执行为基础，彻底革新数据分析 |代码生成 |自定义公式创建|数据分析与图表生成 |调用Kutools函数…… |
| 热门功能：查找、选中项的背景色或标记重复项 | 删除空行 | 合并列或单元格且不丢失数据 | 四舍五入…… | |
| 高级LOOKUP：多条件VLookup|多值VLookup|多表查找|模糊查找…… | |
| 高级下拉列表：快速创建下拉列表 |依赖下拉列表 | 多选下拉列表…… | |
| 列管理器： 添加指定数量的列 | 移动列 | 切换隐藏列的可见状态 | 比较区域与列…… | |
| 特色功能：网格聚焦 |设计视图 | 增强编辑栏 | 工作簿及工作表管理器 | 资源库（自动文本） | 日期提取 | 合并数据 | 加密/解密单元格 | 按名单发送电子邮件 | 超级筛选 | 特殊筛选（筛选粗体/倾斜/删除线等）…… | |
| 15大工具集：12项 文本工具（添加文本、删除特定字符等）|50+种 图表 类型（甘特图等）|40+实用 公式（基于生日计算年龄等）|19项 插入工具（插入二维码、从路径插入图片等）|12项 转换工具（小写金额转大写、汇率转换等）|7项 合并与分割工具（高级合并行、分割单元格等）| …… |
通过Kutools for Excel提升您的Excel技能，体验前所未有的高效办公。 Kutools for Excel提供300多项高级功能，助您提升效率并节省时间。 点击此处获取您最需要的功能……
Office Tab为Office带来多标签界面，让您的工作更加轻松
- 支持在Word、Excel、PowerPoint中进行多标签编辑与阅读。
- 在同一个窗口的新标签页中打开和创建多个文档，而不是分多个窗口。
- 可提升50%的工作效率，每天为您减少数百次鼠标点击！
所有Kutools加载项，一键安装
Kutools for Office套件包含Excel、Word、Outlook和PowerPoint的插件，以及Office Tab Pro，非常适合跨Office应用团队使用。
- 全能套装——Excel、Word、Outlook和PowerPoint插件+Office Tab Pro
- 单一安装包、单一授权——数分钟即可完成设置（支持MSI）
- 协同更高效——提升Office应用间的整体工作效率
- 30天全功能试用——无需注册，无需信用卡
- 超高性价比——比单独购买更实惠