跨Excel工作表增删行并保持数据关联的实现方案咨询

核心思路：通过唯一任务ID作为固定绑定键，搭配结构化表格或Power Query实现增删行时的数据关联，避免附加数据错位。以下是三种实用方法：

方法1：结构化表格 + XLOOKUP（最推荐，操作简单） #

• 将Sheet1的任务数据转为结构化表格：选中数据区域按Ctrl+T，勾选「表包含标题」确认。Sheet1增删行时，表格会自动扩展/收缩。
• 在Sheet1新增唯一任务ID列（如A列），可手动输入或用=ROW()-1生成（表头在第1行时，第2行ID为1，依次递增），新增任务时补全ID即可，ID需固定不修改。
• Sheet2同样转为结构化表格，保留「任务ID」列，用XLOOKUP引用Sheet1数据：
  示例（Sheet2的B列引用Sheet1任务名称）：

  =XLOOKUP([@任务ID], Sheet1[任务ID], Sheet1[任务名称], "")
  

  其他同步列替换公式中的「任务名称」即可。
• 「知识」「技能」等附加列直接在Sheet2表格内填写，因绑定了唯一ID，Sheet1增删行时，XLOOKUP会自动匹配对应任务，附加数据不会错位。新增任务时，Sheet2手动加行填ID即可自动拉取数据；删除任务时，Sheet2删除对应ID行即可。

方法2：Power Query 合并查询（适合多表批量管理） #

• Sheet1和Sheet2的附加数据（含任务ID）都转为结构化表格。
• 打开Power Query编辑器：「数据」选项卡→「获取数据」→「从表格/区域」，分别导入两个表。
• 对Sheet1的任务表执行「合并查询」，选择Sheet2的附加数据表，匹配列选「任务ID」，合并类型选「左外部」（保留所有任务，无附加数据则显示空）。
• 展开合并后的附加列，选择需要的「知识」「技能」列，关闭并上载到目标工作表（如Sheet2或新工作表）。
• 后续Sheet1增删任务或Sheet2修改附加数据时，点击「数据」→「全部刷新」即可自动同步绑定关系。

方法3：VBA自动同步行（适合自动增删行场景） #

若需Sheet1增删行时Sheet2自动同步行，可使用VBA：

1. 按Alt+F11打开VBA编辑器，选中Sheet1的代码窗口。
2. 粘贴以下代码（需确保Sheet1和Sheet2的A列为唯一任务ID）：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim lastRow1 As Long, lastRow2 As Long
    Dim i As Long, matchRow As Long
    
    Set ws1 = ThisWorkbook.Sheets("Sheet1")
    Set ws2 = ThisWorkbook.Sheets("Sheet2")
    
    ' 仅处理整行增删的情况
    If Target.Columns.Count = ws1.Columns.Count Then
        lastRow1 = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row
        lastRow2 = ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row
        
        ' 同步行数量
        If lastRow1 > lastRow2 Then
            ws2.Rows(lastRow2 + 1 & ":" & lastRow1).Insert
        ElseIf lastRow1 < lastRow2 Then
            ws2.Rows(lastRow1 + 1 & ":" & lastRow2).Delete
        End If
        
        ' 通过任务ID匹配同步任务数据
        For i = 2 To lastRow1
            matchRow = Application.Match(ws1.Cells(i, "A").Value, ws2.Columns("A"), 0)
            If Not IsError(matchRow) Then
                ws2.Cells(matchRow, "B").Value = ws1.Cells(i, "B").Value
                ' 如需同步其他列，复制上述行修改列号即可
                ' ws2.Cells(matchRow, "C").Value = ws1.Cells(i, "C").Value
            End If
        Next i
    End If
End Sub

3. 保存文件为「启用宏的工作簿（.xlsm）」，Sheet1增删行时，Sheet2会自动同步行并匹配数据。

关键注意事项 #

• 唯一任务ID是绑定核心，不可重复、不可随意修改，否则关联关系会失效。
• 使用结构化表格时，直接在表格内增删行，不要手动调整表格边界。

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