如何在 Excel 中将单元格中的值垂直拆分？
在 Excel 中工作时，您可能会遇到需要将单行或多行中的多个值转换为纵向列表的情况。当数据以横向格式存储，却需以列格式进行处理或分析时，这一操作尤为实用。
本指南将介绍三种高效方法，用于将单元格值垂直转换：
在 Excel 中将单元格值垂直拆分为行
- 使用公式（Excel 365）– 最适合动态且自动化的转换
- 使用 Kutools for Excel– 所有 Excel 版本均适用的快速简便解决方案
- 使用 VBA 代码– 适用于所有 Excel 版本的自动化理想方案
通过公式将单元格值垂直拆分为行（Excel 365）
如果您使用的是 Excel 365，可借助 TEXTSPLIT、TEXTJOIN 和 TRANSPOSE 函数，轻松实现单元格值的垂直转换，无需任何手动操作。
请将以下公式复制并粘贴到空白单元格中，然后按“ENTER 键”，Excel 将自动将数据溢出至多行，参见截图：
=TRANSPOSE(TEXTSPLIT(TEXTJOIN(";", TRUE, A1:A4), ";"))
- TEXTJOIN（“；“， TRUE， A1:A4）：将 A1 至 A4 单元格中的文本合并为一个字符串，并以分号（；）分隔。
- TEXTSPLIT（。。。）：使用分号作为分隔符，将合并后的字符串重新拆分为独立的值。
- TRANSPOSE（。。。）：将生成的纵向值列表转换为横向行（或按原始方向反向转换）。
✅优点：
- ✔ 动态更新：源数据一旦变动，公式结果即自动刷新。
- ✔ 无需手动操作：告别重复繁琐的手动拆分工作。
- ✔ 自定义分隔符：可将分号（；）替换为任意分隔符（如逗号、空格等），灵活适配您的数据格式。
❌缺点：
- ✘ 仅适用于 Excel 365，不兼容旧版 Excel。
通过 Kutools for Excel 将单元格值垂直拆分为行
如果您使用的是 Excel 2019 或更早版本，不妨试试功能强大的插件“Kutools for Excel”——它专为数据转换与管理而设计。借助其“拆分到多行”功能，您可轻松按任意指定分隔符将单元格内容垂直拆分。
安装“Kutools for Excel”后，请按以下步骤操作：
- 单击“Kutools”>“合并和拆分”>“拆分到多行”，参见截图：
- 在“拆分到多行”对话框中，指定以下操作：
- 选择要拆分的单元格；
- 在“分隔符”部分，选择分隔符以定义如何拆分单元格内容；此处我将选择“分号”。
- 最后，单击“确定”按钮。
结果：数据将转换为纵向排列的列。
✅优点：
- ✔ 适用于所有 Excel 版本（2010、2013、2016、2019、2021、365）
- ✔ 无需复杂的公式或编程。
- ✔ 支持多种分隔符。
- ✔ Kutools 提供 300 多种数据处理工具，助您高效节省处理其他任务的时间。
❌缺点：
- ✘ 需要安装 Kutools
通过 VBA 代码将单元格值垂直拆分为行
对于高级用户，VBA 提供了一种高效可靠的解决方案，可自动将单元格值按垂直方向拆分。以下 VBA 代码让您轻松使用任意自定义分隔符，将单元格内容拆分为多行。
1. 按住“Alt”+“F11”键，即可打开“Microsoft Visual Basic for Applications”窗口。
2. 单击“插入”>“模块”，然后将以下代码粘贴到弹出的“模块”窗口中。
VBA 代码：通过特定分隔符将单元格值垂直拆分为行
Sub splitvertically()
'updatebyExtendoffice
Dim xRg As Range
Dim xOutRg As Range
Dim xCell As Range
Dim xTxt As String
Dim xStr As String
Dim xOutArr As Variant
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xOutRg = Application.InputBox("please select output cell:", "Kutools for Excel", , , , , , 8)
If xOutRg Is Nothing Then Exit Sub
For Each xCell In xRg
If xStr = "" Then
xStr = xCell.Value
Else
xStr = xStr & ";" & xCell.Value
End If
Next
xOutArr = VBA.Split(xStr, ";")
xOutRg.Range("A1").Resize(UBound(xOutArr) + 1, 1) = Application.WorksheetFunction.Transpose(xOutArr)
End Sub
3. 然后按下“F5”键运行此代码，系统将弹出提示框，提醒您选择要用于垂直拆分的单元格值，如下图所示：
4. 接着单击“确定”按钮，系统将弹出另一个提示框，提醒您选择一个单元格来放置结果，参见截图：
5. 单击“确定”按钮后，单元格值将按分隔符拆分为列表，参见截图：
✅ 优点：
- ✔ 自动化处理，节省时间
- ✔ 适用于所有 Excel 版本
- ✔ 可针对不同分隔符进行自定义
❌ 缺点：
- ✘ 需要具备基础的 VBA 编程知识
- ✘ 对初学者而言略显复杂
在 Excel 中将单元格值垂直转换有多种方法，各具优势。掌握这些方法后，您可根据实际需求选择最佳方案，显著优化 Excel 工作流程。无论您是初学者还是高级用户，这些工具与技巧都能助您更高效地处理数据。想探索更多 Excel 高效技巧？我们的网站提供数千篇实用教程，助您轻松精通 Excel！
最佳办公效率工具
| 🤖 | KUTOOLS AI 助手：基于以下内容革新数据分析：智能执行 | 生成代码| 创建自定义公式 | 数据分析及生成图表| 调用 Kutools Functions…… |
| 热门功能：查找、高亮或标记重复项 | 删除空白行 | 合并列或单元格且不丢失数据 | 不使用公式的四舍五入…… | |
| 高级 LOOKUP：多条件 VLookup | 多值 VLookup | 跨多工作表 VLookup | 模糊查找…… | |
| 高级下拉列表：快速创建下拉列表 | 级联下拉列表 | 多选下拉列表…… | |
| 列管理器：添加指定数量的列|移动列|切换隐藏列的可见性状态|比较区域与列…… | |
| 特色功能：网格聚焦 | 设计视图 |增强编辑栏 | 工作簿和表管理器 | 资源库（自动文本）| 日期提取 | 汇总工作表 | 加密/解密单元格 | 按列表发送邮件 | 超级筛选 | 特殊筛选（筛选粗体单元格/斜体/删除线……） ...... | |
| 精选 15 工具集：12 文本工具（添加文本，删除特定字符，……）| 50+ 图表 类型（甘特图，……）| 40+ 实用公式（基于生日计算年龄，……）| 19 插入工具（插入二维码，从路径插入图片，……）| 12 转换工具（小写金额转大写，汇率转换，……）| 7 合并和拆分工具（高级合并行，分割单元格，……）|……更多 |
使用 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 应用高效协作的团队。
- 一体化套件— Excel、Word、Outlook 和 PowerPoint 插件 + Office Tab Pro
- 一个安装程序，一个许可证— 几分钟内完成设置（支持 MSI）
- 协同效果更佳— 在多个 Office 应用中实现高效协同
- 30 天全功能试用— 无需注册，无需信用卡
- 超值之选— 比单独购买插件更省钱