如何实现Excel两工作表间指定单元格的同步更新？

嘿，咱们来搞定这个同步问题！你当前的VBA代码其实是把修改的值又写回了Sheet2本身，完全没涉及Sheet1，这就是为啥没效果的原因。咱们调整下逻辑，实现你要的需求：当在Sheet2中修改考勤类型时，同步更新Sheet1里B列的对应行单元格。

问题根源分析 #

你的代码Worksheets(2).Range(Target.Address) = Target是把修改的内容赋值给Sheet2的同一个位置，等于做了无用功，而且没有限定触发范围，容易引发不必要的事件循环或错误。

正确的VBA代码实现 #

把这段代码粘贴到Sheet2的代码模块里（右键Sheet2标签→「查看代码」，在弹出的编辑器中粘贴）：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 定义Sheet2中考勤类型所在的列，这里假设是C列，根据你的实际列调整
    Dim attendanceCol As Range
    Set attendanceCol = Me.Range("C:C") ' Me代表当前工作表，也就是Sheet2
    
    ' 只处理考勤列的单个单元格修改（避免无关操作触发代码）
    If Not Intersect(Target, attendanceCol) Is Nothing And Target.Cells.Count = 1 Then
        ' 关闭事件触发，防止修改Sheet1时再次触发本事件造成循环
        Application.EnableEvents = False
        
        ' 同步到Sheet1的B列对应行
        Worksheets("Sheet1").Range("B" & Target.Row).Value = Target.Value
        
        ' 重新开启事件触发
        Application.EnableEvents = True
    End If
End Sub

代码关键说明 #

1. 限定触发范围：Me.Range("C:C")指定了只有Sheet2的C列（考勤类型列）被修改时才执行同步，如果你考勤类型在其他列（比如D列），改成Me.Range("D:D")即可。
2. 避免循环触发：Application.EnableEvents = False/True必须加，否则修改Sheet1的B列时会再次触发Sheet2的Worksheet_Change事件，导致无限循环甚至Excel崩溃。
3. 对应行同步：Target.Row获取修改单元格的行号，保证Sheet1的同一行B列单元格被同步更新。

支持批量修改的版本（可选） #

如果你需要一次性修改多个考勤类型单元格并同步，去掉单个单元格限制，用循环处理每个修改的单元格：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim attendanceCol As Range
    Set attendanceCol = Me.Range("C:C")
    Dim cell As Range
    
    If Not Intersect(Target, attendanceCol) Is Nothing Then
        Application.EnableEvents = False
        ' 循环处理每个被修改的考勤单元格
        For Each cell In Intersect(Target, attendanceCol)
            Worksheets("Sheet1").Range("B" & cell.Row).Value = cell.Value
        Next cell
        Application.EnableEvents = True
    End If
End Sub

注意事项 #

• 确保代码是写在Sheet2的代码模块中，而不是标准模块（比如Module1），否则Worksheet_Change事件不会触发。
• 如果你的表头占用了第1行，实际数据从第2行开始，代码依然适用，因为行号是一一对应的。

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