请求实现两个工作表数据验证值双向自动同步的代码

实现思路 #

通过Excel的Workbook_SheetChange事件监听单元格修改动作，当目标数据验证单元格的值变更时，同步更新另一个工作表的对应单元格，同时关闭事件触发避免循环执行。

代码实现 #

1. 打开Excel的VBA编辑器（按下Alt+F11）
2. 在左侧项目窗口中双击ThisWorkbook对象
3. 将以下代码粘贴到右侧代码窗口：

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    ' 请根据实际情况修改以下常量
    Const SHEET_A_NAME As String = "SheetA" ' 工作表A的名称
    Const SHEET_B_NAME As String = "SheetB" ' 工作表B的名称
    Const TARGET_CELL As String = "A1" ' 数据验证所在的单元格地址
    
    ' 关闭事件触发，防止循环同步
    Application.EnableEvents = False
    
    ' 出错时自动恢复事件触发
    On Error GoTo ResetEvents
    
    ' 判断是否为目标工作表的目标单元格
    If Sh.Name = SHEET_A_NAME And Target.Address = "$" & Replace(TARGET_CELL, "$", "") & "$" Then
        ThisWorkbook.Sheets(SHEET_B_NAME).Range(TARGET_CELL).Value = Target.Value
    ElseIf Sh.Name = SHEET_B_NAME And Target.Address = "$" & Replace(TARGET_CELL, "$", "") & "$" Then
        ThisWorkbook.Sheets(SHEET_A_NAME).Range(TARGET_CELL).Value = Target.Value
    End If
    
ResetEvents:
    ' 恢复事件触发
    Application.EnableEvents = True
    ' 若有错误则抛出（可选，便于调试）
    If Err.Number <> 0 Then Err.Raise Err.Number
End Sub

配置说明 #

• 修改代码开头的三个常量：
  • SHEET_A_NAME：替换为你实际的工作表A名称（如"销售数据"）
  • SHEET_B_NAME：替换为你实际的工作表B名称（如"统计报表"）
  • TARGET_CELL：替换为数据验证所在的单元格地址（如B3）
• 保存工作簿为**启用宏的工作簿（.xlsm）**格式，否则宏无法生效

注意事项 #

• 确保两个工作表的目标单元格数据验证选项完全一致，避免同步的值不在对方的验证列表中导致报错
• 如果需要同步多个数据验证单元格，可以修改Target的判断逻辑，例如判断Target是否属于某个指定范围（如Target.Intersect(Range("A1:C3")) Is Nothing）

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