在日常工作中，Excel 是许多人不可或缺的工具。无论是数据分析、财务报表还是项目管理，Excel 都能提供强大的功能来帮助我们管理和分析数据。今天，我们将探讨一个特别的需求：如何在 Excel 中实现两个（或多个）单元格之间的双向数据同步，使得在任意一个单元格中输入数据后，其他指定的单元格能即时更新。
实现双向数据同步
假设我们有两个单元格：A4 和 B6，我们希望当用户在 A4 输入一个值时，B6 能自动更新为相同的值，反之亦然。这种同步不应受限于自动计算的开关状态，并且应该在用户输入任何值时立即生效。
解决方案：使用 VBA
Excel 原生功能无法直接实现这样的双向同步，但我们可以通过 VBA（Visual Basic for Applications）来实现这个功能。以下是具体的步骤：
打开 VBA 编辑器：
- 在 Excel 中，按
Alt + F11打开 VBA 编辑器。 - 在左侧的项目浏览器中找到并双击你想要操作的工作表（例如
Sheet1）。
- 在 Excel 中，按
插入代码：
- 在打开的代码窗口中，粘贴以下代码：
Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) PopulateWithChangedValue Target, "A4,B6" End Sub Sub PopulateWithChangedValue( _ ByVal Target As Range, _ ByVal RangeAddress As String) Const PROC_TITLE As String = "双向数据同步" On Error GoTo ClearError Dim srg As Range: Set srg = Target.Worksheet.Range(RangeAddress) Dim trg As Range: Set trg = Intersect(srg, Target) If trg Is Nothing Then Exit Sub Application.EnableEvents = False srg.Value = trg.Cells(1).Value ProcExit: On Error Resume Next Application.EnableEvents = True On Error GoTo 0 Exit Sub ClearError: MsgBox "运行时错误 '" & Err.Number & "':" & vbLf & vbLf _ & Err.Description, vbCritical, PROC_TITLE Resume ProcExit End Sub- 保存工作簿：
- 保存文件时，请确保选择
.xlsm（宏启用的工作簿）或.xlsb（二进制工作簿）格式，因为这些格式支持宏。
- 保存文件时，请确保选择
功能测试
现在，您可以尝试在 A4 或 B6 中输入值，观察另一个单元格是否同步更新。如果一切正常，这个 VBA 代码将自动在指定的单元格之间同步数据。
拓展功能
跨工作表同步：如果您需要在不同工作表之间同步数据，只需在
RangeAddress字符串中包含来自不同工作表的单元格地址即可。例如"Sheet1!A4,Sheet2!B6"。相对引用：如果您希望在单元格中输入公式时也能同步，可以将
srg.Value = trg.Cells(1).Value改为srg.Formula = trg.Cells(1).Formula，这样公式的相对引用也会被正确处理。
通过这种方法，您不仅可以实现 Excel 中的双向数据同步，还可以轻松扩展到多个单元格或工作表之间的同步，极大地提高了数据处理的效率和准确性。
