Excel中ID关联多Sub_ID拆分：新增行匹配需求实现方案咨询

方案1：Power Query（推荐，无公式/代码基础也能操作） #

Power Query是Excel自带的批量数据处理工具，处理这类拆分、行插入需求效率远高于公式，步骤如下：

• 选中包含C列ID及所有Sub_ID列的整个数据区域，点击「数据」选项卡 → 「从表格/区域」（弹出对话框时确认「我的表格有标题」）
• 进入Power Query编辑器后，选中C列（ID列），点击「转换」选项卡 → 「逆透视列」→ 选择「逆透视其他列」，此时所有分散的Sub_ID会被统一转到同一列
• 点击Sub_ID列的筛选按钮，取消勾选「(空白)」，过滤掉空值
• 点击「添加列」→ 「索引列」→ 「从1开始」，给每个ID的Sub_ID添加顺序编号
• 筛选出索引值为2的行（这些就是每个ID对应的第二个Sub_ID）
• 可直接复制筛选后的ID和Sub_ID数据，回到原工作表在对应行下方插入新行粘贴；也可在Power Query中合并原数据与筛选出的第二Sub_ID数据，再加载回Excel保留原第一Sub_ID行

方案2：VBA批量处理（适合有基础的用户） #

用VBA代码自动遍历数据，批量完成插入新行和复制操作，比公式效率提升明显：
按Alt+F11打开VBA编辑器，插入模块，粘贴以下代码：

Sub SplitSecondSubID()
    Dim ws As Worksheet
    Dim lastRow As Long, i As Long
    Dim subIDCol As Integer, subIDCount As Integer
    
    Set ws = ActiveSheet ' 可改为指定工作表，比如Set ws = ThisWorkbook.Sheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row
    
    ' 从最后一行往上遍历，避免插入行打乱循环顺序
    For i = lastRow To 2 Step -1
        subIDCount = 0
        ' 遍历当前行C列右侧的所有列，统计非空Sub_ID
        For subIDCol = 4 To ws.Cells(i, ws.Columns.Count).End(xlToLeft).Column
            If ws.Cells(i, subIDCol).Value <> "" Then
                subIDCount = subIDCount + 1
                If subIDCount = 2 Then
                    ' 插入新行
                    ws.Rows(i + 1).Insert Shift:=xlDown
                    ' 复制当前ID到新行C列
                    ws.Cells(i + 1, "C").Value = ws.Cells(i, "C").Value
                    ' 复制第二个Sub_ID到新行D列（可根据需求修改目标列）
                    ws.Cells(i + 1, "D").Value = ws.Cells(i, subIDCol).Value
                    Exit For
                End If
            End If
        Next subIDCol
    Next i
End Sub

使用说明：

• 运行前确保目标数据在活动工作表，或修改代码中的工作表名称
• 代码会自动识别每行的第二个非空Sub_ID，插入新行并复制关联ID与该Sub_ID
• 可按需调整新行中Sub_ID的存放列

为什么不推荐公式方案？ #

公式需要嵌套复杂逻辑、跨表引用或动态数组，数据量较大时计算刷新极慢，且插入行的操作无法通过公式自动完成，必须手动配合，整体效率极低。上述两个方案均为批量自动化处理，能大幅节省时间。

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