如何用VBA实现跨工作表的单元格双向联动？

要实现跨工作表的单元格双向联动（修改任意一端单元格，另一端同步更新），需针对每个涉及的工作表单独编写Worksheet_Change事件代码，核心是明确指定跨表的单元格范围并避免事件循环。

实现步骤（以联动Sheet1的A1和Sheet2的C5为例） #

1. 右键点击Sheet1的标签→选择「查看代码」，打开Sheet1的对象模块，粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim sourceRng As Range
    Dim targetRng As Range
    
    Set sourceRng = Me.Range("A1")
    Set targetRng = ThisWorkbook.Worksheets("Sheet2").Range("C5")
    
    If Not Intersect(Target, sourceRng) Is Nothing Then
        Application.EnableEvents = False
        targetRng.Value = sourceRng.Value
        Application.EnableEvents = True
    End If
End Sub

2. 右键点击Sheet2的标签→选择「查看代码」，打开Sheet2的对象模块，粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim sourceRng As Range
    Dim targetRng As Range
    
    Set sourceRng = Me.Range("C5")
    Set targetRng = ThisWorkbook.Worksheets("Sheet1").Range("A1")
    
    If Not Intersect(Target, sourceRng) Is Nothing Then
        Application.EnableEvents = False
        targetRng.Value = sourceRng.Value
        Application.EnableEvents = True
    End If
End Sub

关键说明 #

• 工作表对象模块要求：代码必须写在对应工作表的对象模块中，不能放在普通模块，这样才能捕获当前工作表的修改事件
• 明确范围指向：用Me指代代码所在的工作表，ThisWorkbook.Worksheets("工作表名")精准指定跨表的目标单元格，避免范围混淆
• 避免事件循环：修改目标单元格前禁用Application.EnableEvents，完成后重新启用，防止触发对方工作表的Change事件造成无限循环
• 扩展多单元格联动：如果需要联动多组单元格，可使用Union扩展源范围，例如Set sourceRng = Union(Me.Range("A1"), Me.Range("B2"))，同时对应设置多个目标单元格同步逻辑

注意事项 #

• 确保代码中填写的工作表名称与实际工作表名称完全一致（区分大小写）
• 若联动的单元格包含公式，Worksheet_Change不会响应公式计算结果的变化，此时需改用Worksheet_Calculate事件，并添加额外判断逻辑避免重复触发

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