Excel如何将逗号分隔的单元格多值拆分为独立行且不影响其他行

你之前使用的「逗号分列」功能是横向将值拆分到多列，无法实现纵向拆分行的需求，还会改动单值、空值行，使用下面两种方法即可精准实现需求：空值、单值行完全保留，多逗号分隔的TABLE NAME值拆为独立行，对应SCRIPTNM自动重复填充。

方法一：Power Query零代码操作（推荐，适配Excel 2016及以上版本/365） #

操作全程不需要写代码，处理逻辑精准，不会误改原数据：

• 选中包含表头的完整数据区域，点击顶部「数据」选项卡，选择「从表格/区域」，勾选弹窗里的「我的表格有标题」选项，点击确定进入Power Query编辑器。
• 在编辑器内选中TABLE NAME列，点击顶部「转换」选项卡，找到「拆分列」按钮，下拉选择「按分隔符」。
• 分隔符选择「逗号」，拆分规则选择「每次出现分隔符时」；点开「高级选项」，将拆分类别从默认的「列」改为行，同时勾选「跳过空字符」（可以自动处理逗号前后的多余空格，适配DB.TABLE1, DB.TABLE2这类带空格的格式）。
• 点击「确定」即可自动完成拆分，最后点击编辑器左上角「关闭并上载」，拆分结果会自动导出到新工作表，原数据不会被改动。

核对你提供的8行测试数据，拆分后最终共14行：2条空值行、3条单值行完全保持原样，scriptD.exp拆为2行、scriptG.exp拆为3行、scriptH.exp拆为4行，完全匹配需求。

方法二：VBA脚本一键处理（适合高频重复操作场景） #

如果需要定期处理同类数据，可以用宏脚本一键生成结果：

• 打开需要处理的Excel文件，按Alt+F11调出VBA编辑器，右键点击左侧工作簿名称，选择「插入」-「模块」，将下方代码粘贴到模块编辑区：

Sub SplitTableToMultiRows()
    Dim sourceLastRow As Long, outputRow As Long, i As Long
    Dim tableArr As Variant, ele As Variant
    ' 读取原数据，原数据默认放在A、B列，A列是SCRIPTNM，B列是TABLE NAME，第一行为表头
    sourceLastRow = Cells(Rows.Count, "A").End(xlUp).Row
    ' 结果输出到D、E列，避免覆盖原数据
    outputRow = 1
    Cells(outputRow, "D") = "SCRIPTNM"
    Cells(outputRow, "E") = "TABLE NAME"
    outputRow = outputRow + 1
    ' 逐行处理
    For i = 2 To sourceLastRow
        scriptName = Trim(Cells(i, "A").Value)
        tableName = Trim(Cells(i, "B").Value)
        ' 空值行直接保留
        If tableName = "" Then
            Cells(outputRow, "D") = scriptName
            Cells(outputRow, "E") = ""
            outputRow = outputRow + 1
        Else
            ' 按逗号拆分值，自动去除每个值前后的多余空格
            tableArr = Split(tableName, ",")
            For Each ele In tableArr
                Cells(outputRow, "D") = scriptName
                Cells(outputRow, "E") = Trim(ele)
                outputRow = outputRow + 1
            Next
        End If
    Next
End Sub

• 按F5运行脚本，即可在当前工作表的D、E列生成拆分完成的结果，原数据完整保留。

注意事项 #

• 操作前建议备份一份原文件，避免误操作导致数据丢失。
• 如果使用的是Excel 2013及更早版本，没有内置Power Query功能，直接用VBA方法即可。

内容的提问来源于stack exchange，提问作者Rocky1989