如何在Excel中垂直拆分单元格值？

在 Excel 中工作时，您可能会遇到需要将一行或多行中的多个值转换为垂直列表的情况。当数据以水平格式存储但需要以列格式处理或分析时，这尤其有用。

本指南将介绍垂直转换单元格值的三种有效方法：

在 Excel 中垂直将单元格值拆分为行

• 使用公式 (Excel 365) – 最适合动态和自动转换
• 使用 Kutools for Excel – 使用适用于所有 Excel 版本的专用工具快速简便地解决
• 使用VBA代码 – 非常适合所有 Excel 版本的流程自动化

使用公式将单元格值垂直拆分为行（Excel 365）

如果您有 Excel 365，则可以使用 TEXTSPLIT、TEXTJOIN 和 TRANSPOSE 函数垂直转换单元格值，无需手动操作。

请将以下公式复制并粘贴到空白单元格中，然后按 输入 键，Excel会自动将数据溢出到多行，见截图：

=TRANSPOSE(TEXTSPLIT(TEXTJOIN(";", TRUE, A1:A4), ";"))

通过Kutools for Excel将单元格值垂直拆分为行

如果您使用 Excel 2019 或更早版本，则可以使用 Kutools for Excel – 一个功能强大的插件，带有专门的工具，可轻松转换和管理数据。 将数据拆分为行 功能，您可以根据需要的任何定界符无缝地垂直转换单元格值。

安装后 Kutools for Excel，请这样做：

1. 点击 库工具 > 合并与拆分 > 将数据拆分为行，请参见屏幕截图：
   
2. 在 将数据拆分为行 对话框，指定以下操作：
   • 选择要拆分的单元格；
   • 在 分隔符 部分，选择分隔符来定义单元格内容的拆分方式。在这里，我将选择 分号.
   • 最后点击 OK 按钮。
     

结果：数据将转换为垂直列。

通过 VBA 代码将单元格值垂直拆分为行

对于高级用户，VBA 提供了一个强大的解决方案来自动垂直拆分单元格值。下面的 VBA 代码使您能够使用任何自定义分隔符轻松地将单元格内容拆分为行。

1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

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。 然后点击 OK 按钮，将弹出另一个框，提醒您选择要放入结果的单元格，请参见屏幕截图：

5。 点击 OK 按钮，并且单元格值已由分隔符拆分为列表，请参见屏幕截图：

在 Excel 中垂直转换单元格值可以通过多种方法实现，每种方法都有自己的优势。通过了解这些方法，您可以选择最适合您特定需求的方法并优化 Excel 中的工作流程。无论您是初学者还是高级用户，这些工具和技术都将帮助您更有效、更高效地处理数据。如果您有兴趣探索更多 Excel 技巧和窍门， 我们的网站提供数千个教程来帮助你掌握 Excel.