如何在Excel中实现多单元格（含跨工作表）共享底层数据的实时双向同步？

核心实现方案（VBA宏） #

通过监听工作表修改事件，实现任意数量单元格的双向实时同步，支持跨工作表，关闭自动计算时仍能生效，同时自动处理公式的相对引用适配。

步骤1：添加VBA代码 #

1. 打开Excel文件，按下Alt+F11打开VBA编辑器。
2. 在左侧工程窗口中，双击ThisWorkbook对象。
3. 粘贴以下代码：

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    ' 定义同步组：键为组内任意单元格地址（组标识），值为该组所有单元格地址集合
    Dim syncGroups As Object
    Set syncGroups = CreateObject("Scripting.Dictionary")
    
    ' --------------------------
    ' 这里修改为你的同步组配置
    ' --------------------------
    ' 示例组1：Sheet1的A4与B6同步
    syncGroups.Add "Sheet1!A4", Array("Sheet1!A4", "Sheet1!B6")
    ' 示例组2：跨工作表同步Sheet2!C3、Sheet3!D5、Sheet1!E7
    syncGroups.Add "Sheet2!C3", Array("Sheet2!C3", "Sheet3!D5", "Sheet1!E7")
    
    Dim targetAddr As String
    targetAddr = Sh.Name & "!" & Target.Address(False, False)
    
    ' 检查目标单元格是否属于某个同步组
    Dim groupKey As Variant
    Dim groupCells As Variant
    Dim cellAddr As String
    Dim targetCell As Range
    Dim destCell As Range
    Dim formulaR1C1 As String
    
    For Each groupKey In syncGroups.Keys
        groupCells = syncGroups(groupKey)
        If IsInArray(targetAddr, groupCells) Then
            Application.EnableEvents = False ' 关闭事件防止循环触发
            
            Set targetCell = ThisWorkbook.Range(targetAddr)
            formulaR1C1 = targetCell.FormulaR1C1 ' 获取R1C1格式公式，适配相对引用
            
            ' 同步组内所有单元格
            For Each cellAddr In groupCells
                If cellAddr <> targetAddr Then
                    Set destCell = ThisWorkbook.Range(cellAddr)
                    If targetCell.HasFormula Then
                        destCell.FormulaR1C1 = formulaR1C1 ' 同步公式并自动适配相对引用
                    Else
                        destCell.Value = targetCell.Value ' 同步普通值
                    End If
                End If
            Next cellAddr
            
            Application.EnableEvents = True ' 恢复事件触发
            Exit Sub
        End If
    Next groupKey
End Sub

' 辅助函数：检查字符串是否在数组中
Private Function IsInArray(searchStr As String, arr As Variant) As Boolean
    Dim element As Variant
    For Each element In arr
        If element = searchStr Then
            IsInArray = True
            Exit Function
        End If
    Next element
    IsInArray = False
End Function

步骤2：配置同步组 #

在代码的syncGroups.Add区域，按照示例格式添加你的同步单元格集合：

• 每个同步组对应一行syncGroups.Add，第一个参数是组内任意单元格的地址（作为组的标识），第二个参数是该组所有需要同步的单元格地址数组，格式为工作表名!单元格地址（如Sheet2!D5）。
• 可添加任意多个同步组，组之间相互独立。

步骤3：保存与启用宏 #

1. 将文件保存为**启用宏的工作簿（.xlsm）**格式。
2. 再次打开文件时，在安全提示中选择启用宏，同步功能即可生效。

功能特性 #

• 实时双向同步：修改组内任意单元格，其他关联单元格立即同步更新，不受自动计算设置影响。
• 跨工作表支持：可同步不同工作表中的单元格。
• 公式相对引用适配：输入公式时（如=A3+1），同步到其他单元格会自动转换为对应位置的相对引用（如=B5+1）。
• 无输入/输出限制：无需指定专门的输入单元格，直接修改任意关联单元格即可。

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