刚看到你的需求——用公式提取了原表日期区间的数据到新工作表，现在想让新表的修改（比如Shipped列的N改Y）同步回原表，这个问题我之前帮不少人解决过，核心点在于普通的提取公式是单向引用，修改新表会覆盖公式，所以得换双向同步的方案，下面给你两种靠谱的实现方式：

方法一：用VBA事件宏（最灵活可靠） #

这个方法是通过Excel的VBA事件监听新工作表的修改，自动匹配原表对应行并同步更新，适合需要实时同步的场景。

操作步骤： #

1. 确认工作表名称：假设你的原数据表叫Sheet1，新的提取表叫Sheet2（如果名字不一样，后面代码里要对应修改）。
2. 打开VBA编辑器：按下Alt + F11组合键，弹出VBA编辑窗口。
3. 添加Sheet2的修改监听代码：
   • 在左侧的「工程资源管理器」里找到Sheet2，双击它打开代码窗口。
   • 粘贴下面的代码（注意根据你的实际列调整参数）：

     Private Sub Worksheet_Change(ByVal Target As Range)
         ' 定义变量
         Dim wsSource As Worksheet
         Dim targetRow As Long
         Dim matchValue As Variant
         Dim shippedCol As Integer, idCol As Integer
         
         ' 设定工作表、唯一ID列、Shipped列的位置（根据你的实际表格改）
         Set wsSource = ThisWorkbook.Sheets("Sheet1") ' 原表名称
         idCol = 1 ' 唯一标识符列（比如订单号，假设在A列）
         shippedCol = 5 ' Shipped列（假设在E列）
         
         ' 只处理Shipped列的修改，避免无关操作触发
         If Target.Column = shippedCol Then
             ' 获取当前修改行的唯一ID
             matchValue = Me.Cells(Target.Row, idCol).Value
             If matchValue <> "" Then
                 ' 在原表中查找匹配的ID行
                 targetRow = 0
                 On Error Resume Next
                 targetRow = wsSource.Columns(idCol).Find(What:=matchValue, LookIn:=xlValues, LookAt:=xlWhole).Row
                 On Error GoTo 0
                 
                 ' 如果找到匹配行，同步修改
                 If targetRow > 0 Then
                     ' 关闭事件避免循环触发
                     Application.EnableEvents = False
                     wsSource.Cells(targetRow, shippedCol).Value = Target.Value
                     Application.EnableEvents = True
                 End If
             End If
         End If
     End Sub
     

4. 测试功能：回到Sheet2，修改某一行的Shipped列，切换到Sheet1看看对应行是不是同步更新了。

额外：实现双向同步（原表修改也同步到新表） #

如果需要原表修改Shipped列时，新表也同步更新，同样在Sheet1的代码窗口粘贴下面的代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim wsDest As Worksheet
    Dim targetRow As Long
    Dim matchValue As Variant
    Dim shippedCol As Integer, idCol As Integer
    
    Set wsDest = ThisWorkbook.Sheets("Sheet2")
    idCol = 1
    shippedCol = 5
    
    If Target.Column = shippedCol Then
        matchValue = Me.Cells(Target.Row, idCol).Value
        If matchValue <> "" Then
            targetRow = 0
            On Error Resume Next
            targetRow = wsDest.Columns(idCol).Find(What:=matchValue, LookIn:=xlValues, LookAt:=xlWhole).Row
            On Error GoTo 0
            
            If targetRow > 0 Then
                Application.EnableEvents = False
                wsDest.Cells(targetRow, shippedCol).Value = Target.Value
                Application.EnableEvents = True
            End If
        End If
    End If
End Sub

注意事项： #

• 保存文件时要选择.xlsm格式（启用宏的工作簿），否则VBA代码会丢失。
• 必须有唯一标识符列（比如订单号、ID），否则无法准确匹配原表和新表的行。
• 测试前最好备份数据，避免代码出错导致数据丢失。

方法二：不用VBA的静态链接法（适合不想用宏的场景） #

这个方法是让新表的Shipped列直接链接到原表对应单元格，同时用筛选来提取日期区间的数据，缺点是如果原表行顺序变化，链接可能失效。

操作步骤： #

1. 在原表筛选日期区间：选中原表数据，用「数据」选项卡的「筛选」功能，筛选出你需要的日期区间的数据。
2. 复制筛选后的行到新表：选中筛选后的可见行，右键选择「复制」，然后在新工作表右键选择「粘贴链接」（不是普通粘贴）。
3. 验证同步：修改新表的Shipped列，原表对应单元格会自动同步，反之亦然。

局限性： #

• 如果原表的筛选条件变化，需要重新复制粘贴链接。
• 原表行顺序调整后，新表的链接可能指向错误的行。

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