如何实现工作表名称变更时仍保留单元格联动的工作表宏？

嘿，我来帮你把这套实现Sheet1和Sheet2单元格双向同步的VBA代码整理清楚，并且补全Sheet2的宏代码，确保双向联动稳稳运行～

你已经在Sheet1中设置了命名单元格INPUT_A_1，Sheet2中设置了INPUT_A_2，通过工作表事件宏实现修改任一单元格时另一单元格同步更新，以下是完整的代码实现和关键说明：

Sheet1中的事件宏代码 #

这部分你已经写好且运行正常，整理后的代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False ' 禁用事件防止循环触发
    If (Target.Address = Range("INPUT_A_1").Address) Then
        Sheets("Sheet2").Range("INPUT_A_2") = Target.Value
    End If
    Application.EnableEvents = True ' 重新启用事件
End Sub

Sheet2中的事件宏代码 #

补全Sheet2的宏代码，和Sheet1逻辑对称，确保双向同步：

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False ' 必须禁用事件，否则会触发对方工作表的Change事件导致循环
    If (Target.Address = Range("INPUT_A_2").Address) Then
        Sheets("Sheet1").Range("INPUT_A_1") = Target.Value
    End If
    Application.EnableEvents = True ' 恢复事件监听
End Sub

关键注意事项 #

• Application.EnableEvents = False的必要性：修改另一工作表单元格时会触发对方的Worksheet_Change事件，如果不禁用事件，会陷入循环触发的死循环，导致Excel卡顿甚至崩溃，所以一定要在修改前禁用，操作完成后恢复。
• 确认命名单元格存在：确保INPUT_A_1和INPUT_A_2这两个命名单元格确实分别在Sheet1和Sheet2中定义，否则代码会报错。
• 仅监听目标单元格：代码通过判断Target.Address只处理目标单元格的修改，避免其他单元格的编辑触发不必要的同步操作。

内容的提问来源于stack exchange，提问作者Sharat V Chandrasekhar