如何在Excel中按分隔符拆分数据并将其重新排列到列中？

在使用Excel时，经常会遇到包含多个由逗号、分号或其他分隔符分隔的值的单元格。如果需要按特定分隔符拆分这些单元格，并将所有结果值合并到一个单独的列中（如下方截图所示），有高效的方法可以实现这一目标，从而更好地组织和分析数据。

按分隔符拆分数据并将其重新排列到列中

• 通过使用公式（Excel 365）
• 通过使用Kutools for Excel
• 通过使用VBA代码

使用公式按分隔符拆分数据并将其重新排列到列中（Excel 365）

在Excel 365中，我们可以使用现代函数如TEXTSPLIT和TEXTJOIN动态地实现这种转换。

单击您要放置结果的单元格，输入下方公式，然后按下Enter键。包含逗号分隔文本字符串的单元格会立即转换为列表。请参见截图：

=TRANSPOSE(TEXTSPLIT(TEXTJOIN(", ", TRUE, A2:A5), ", "))

使用Kutools for Excel按分隔符拆分数据并重新排列成列

对于使用旧版Excel（如2016/2019等缺乏TEXTSPLIT函数）的用户，Kutools for Excel的拆分到多行功能提供了一个理想的解决方案。该功能允许您根据特定分隔符快速将单元格内容拆分为一列，节省您的时间和精力。

安装Kutools for Excel后，请按照以下步骤操作：

1. 点击 Kutools > 合并与分割 > 拆分到多行，请参见截图：
   
2. 在 拆分到多行 对话框中，指定以下操作：
   • 选择要拆分的单元格；
   • 在“分隔依据”部分，选择其他，然后输入您的分隔符（例如，逗号和空格）以定义单元格内容应如何拆分；
   • 最后，点击 确定 按钮。
     

结果：所选单元格已根据指定的分隔符拆分为列。

使用VBA代码按分隔符拆分数据并重新排列为列

在这里，我们将指导您如何使用VBA按分隔符拆分单元格内容并将结果重新排列为一列。

1. 按下 Alt + F11键打开Microsoft Visual Basic for Applications窗口。

2. 单击 插入 > 模块，并将以下代码粘贴到新的 模块窗口中。

VBA：拆分与转置

Sub Vertical()
'Updateby Extendoffice
    Dim i As Long, strTxt As String
    Dim startP As Range
    Dim xRg As Range, yRg As Range
    On Error Resume Next
    Set xRg = Application.InputBox _
    (Prompt:="Range Selection...", _
    Title:="Kutools For Excel", Type:=8)
    i = 1
    Application.ScreenUpdating = False
    For Each yRg In xRg
        If i = 1 Then
            strTxt = yRg.Text
            i = 2
        Else
            strTxt = strTxt & "," & yRg.Text
        End If
    Next
    Application.ScreenUpdating = True
    Set startP = Application.InputBox _
    (Prompt:="paste range...", _
    Title:="Kutools For Excel", Type:=8)
    ary = Split(strTxt, ",")
    i = 1
    Application.ScreenUpdating = False
    For Each a In ary
        startP(i, 1).Value = a
        i = i + 1
    Next a
    Application.ScreenUpdating = True
End Sub

3. 按下 F5 键运行代码，弹出对话框供您选择要拆分和转置的范围。

4. 点击 确定。弹出对话框供您选择放置数据的位置。

5. 点击 确定，并且所选内容已按逗号拆分并转置。

🔚 结论

所有方法都有效地解决了按分隔符拆分数据的核心问题，最佳选择取决于您的技术熟练度和具体需求。

• 对于大多数Excel 365用户来说，公式方法提供了最强有力且易于维护的平衡。
• 对于频繁进行复杂转换的非程序员用户，Kutools 是理想的选择。
• 对于企业环境中的定制化、自动化解决方案，VBA提供了最大的控制力。

根据您的具体需求选择合适的方法。如果您有兴趣探索更多Excel技巧，我们的网站提供了数千个教程，帮助您掌握Excel。