寻求表格数据拆分自动化方案：多335开头号码拆分为独立行

方法1：Power Query（推荐，适配数千行数据） #

• 选中目标数据区域，点击「数据」选项卡 →「从表格/区域」，确认数据包含表头
• 在Power Query编辑器中，选中存有多号码的列
• 点击「转换」选项卡 →「拆分列」→「按分隔符」，选择逗号，勾选「拆分为行」
• 点击「关闭并上载」，拆分完成的数据会自动生成新工作表

方法2：VBA脚本（适合需重复批量操作） #

打开VBA编辑器（按Alt+F11），插入模块后粘贴以下代码：

Sub SplitNumbersToRows()
    Dim ws As Worksheet
    Dim lastRow As Long, i As Long, j As Long
    Dim arrNumbers As Variant
    
    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row '假设姓名在A列、号码在B列，可按需修改列标识
    
    '从下往上遍历，避免插入行导致的行号混乱
    For i = lastRow To 2 Step -1
        arrNumbers = Split(ws.Cells(i, "B").Value, ",")
        If UBound(arrNumbers) > 0 Then
            ws.Rows(i + 1 & ":" & i + UBound(arrNumbers)).Insert
            '复制当前行其他字段到新行
            For j = 0 To UBound(arrNumbers)
                ws.Cells(i + j, "A").Value = ws.Cells(i, "A").Value
                ws.Cells(i + j, "B").Value = Trim(arrNumbers(j))
                '如有其他列需同步复制，可添加类似 ws.Cells(i+j,"C").Value = ws.Cells(i,"C").Value 的代码
            Next j
            ws.Rows(i).Delete
        End If
    Next i
End Sub

• 根据你的数据结构修改代码中的列标识（A、B）
• 运行脚本即可完成批量拆分

方法3：公式法（仅适合小量数据，不推荐数千行场景） #

假设姓名在A2、号码在B2，在C2输入以下公式：

=TRIM(MID(SUBSTITUTE($B2,",",REPT(" ",LEN($B2))), (ROW(A1)-1)*LEN($B2)+1, LEN($B2)))

下拉填充至出现空值，筛选删除空行后复制结果到新表（该方法会产生大量冗余行，大数量场景效率极低）

EasyMorph处理此类场景无需代码，操作步骤如下：

• 导入你的Excel/EasyMorph格式数据
• 添加「拆分列」动作，选择存有多号码的列，分隔符选逗号，拆分模式设置为「拆分为行」
• 可选添加「去除空格」动作，清理号码前后的冗余空格
• 导出处理后的数据至Excel或保存为EasyMorph格式文件

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