=TRANSPOSE(TEXTSPLIT(A1,","))提示：您可以根据数据的分隔方式将分隔符","更改为";"或"|"。
第2步：按下Enter键。
优点 缺点 完全动态，并随更改自动更新。 无需插件或手动步骤。 仅适用于支持TEXTSPLIT和动态数组的Excel版本（Excel 365）。 方法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列时生效。
缺点 必须保存为启用宏的文件（.xlsm）以保留脚本供将来使用。 💡提示：
运行宏之前始终备份数据。 将脚本中的“,”替换为实际分隔符（例如，“;”表示分号或“|”表示管道字符）以匹配数据格式。 常见问题 空白行或列：通常由尾部分隔符或隐藏空格引起。 合并单元格错误：在开始前取消合并单元格。 Power Query未刷新：记住在修改源数据后点击刷新。 错误的分隔符：分号与逗号的错误可能导致整个结果出错。 相关文章： 转置范围实用程序：轻松在Excel中将多行转换为列和行 单位转换器工具：快速将十进制数转换为二进制/八进制/十六进制数或反之亦然 最佳Office办公效率工具 🤖 Kutools AI 助手：以智能执行为基础，彻底革新数据分析 |代码生成 |自定义公式创建|数据分析与图表生成 |调用Kutools函数…… 热门功能：查找、选中项的背景色或标记重复项 | 删除空行 | 合并列或单元格且不丢失数据 | 四舍五入…… 高级LOOKUP：多条件VLookup|多值VLookup|多表查找|模糊查找…… 高级下拉列表：快速创建下拉列表 |依赖下拉列表 | 多选下拉列表…… 列管理器： 添加指定数量的列 | 移动列 | 切换隐藏列的可见状态 | 比较区域与列…… 特色功能：网格聚焦 |设计视图 | 增强编辑栏 | 工作簿及工作表管理器 | 资源库（自动文本） | 日期提取 | 合并数据 | 加密/解密单元格 | 按名单发送电子邮件 | 超级筛选 | 特殊筛选（筛选粗体/倾斜/删除线等）…… 15大工具集：12项 文本工具（添加文本、删除特定字符等）|50+种 图表 类型（甘特图等）|40+实用 公式（基于生日计算年龄等）|19项 插入工具（插入二维码、从路径插入图片等）|12项 转换工具（小写金额转大写、汇率转换等）|7项 合并与分割工具（高级合并行、分割单元格等）| …… Kutools支持多种语言——可选择英语、西班牙语、德语、法语、中文等40多种语言！通过Kutools for Excel提升您的Excel技能，体验前所未有的高效办公。 Kutools for Excel提供300多项高级功能，助您提升效率并节省时间。 点击此处获取您最需要的功能……
Kutools for Excel更多详情…… 免费下载…… Office Tab为Office带来多标签界面，让您的工作更加轻松 支持在Word、Excel、PowerPoint中进行多标签编辑与阅读。 在同一个窗口的新标签页中打开和创建多个文档，而不是分多个窗口。 可提升50%的工作效率，每天为您减少数百次鼠标点击！ Office Tab更多详情…… 免费下载……所有Kutools加载项，一键安装Kutools for Office套件包含Excel、Word、Outlook和PowerPoint的插件，以及Office Tab Pro，非常适合跨Office应用团队使用。
全能套装——Excel、Word、Outlook和PowerPoint插件+Office Tab Pro 单一安装包、单一授权——数分钟即可完成设置（支持MSI） 协同更高效——提升Office应用间的整体工作效率 30天全功能试用——无需注册，无需信用卡 超高性价比——比单独购买更实惠 Kutools for Office更多详情…… 免费下载……