如何在Worksheet写入值后自动填充重复值至同Workbook的另一Worksheet

当然有可行的办法，以下是两种常用的实现方式，根据你的需求选择即可：

1. 直接单元格引用（无需代码，简单快捷） #

这是最基础的方法，适合固定范围的数据同步：

• 打开第二个工作表（比如Sheet2），选中你要同步的第一个单元格（比如A1）
• 输入公式 =Sheet1!A1（这里的Sheet1是第一个工作表的名称，根据实际修改）
• 按回车后，下拉/右拉填充公式到需要同步的所有单元格范围

如果需要同步整列或整行，可以直接写 =Sheet1!A:A（同步A列），这样Sheet1中A列的任何数据变化都会自动同步到Sheet2的对应列。注意：整列引用在数据量很大时可能影响表格性能，按需使用。

2. VBA宏自动同步（自动触发，适合动态场景） #

如果需要Sheet1的数据一修改就自动同步到Sheet2，不用手动维护公式，可以用VBA的工作表变更事件：

• 右键点击第一个工作表（Sheet1）的标签，选择「查看代码」
• 在弹出的VBA编辑器中，粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 设定需要同步的单元格范围，根据你的实际需求修改
    Dim syncArea As Range
    Set syncArea = Me.Range("A1:Z1000")
    
    ' 仅处理同步范围内的单元格变更
    If Not Intersect(Target, syncArea) Is Nothing Then
        ' 将变更的区域复制到Sheet2的对应位置
        Target.Copy Destination:=Sheet2.Range(Target.Address)
    End If
End Sub

• 保存工作簿时，选择「Excel 启用宏的工作簿（*.xlsm）」格式
• 下次打开工作簿时，记得启用宏（否则代码不会生效）

注意事项 #

• 引用方法的优势是无需宏支持，兼容性好；缺点是如果同步范围变化，需要手动调整公式
• VBA方法的优势是全自动触发，适合频繁修改数据的场景；缺点是需要启用宏，且要注意不要设置过大的同步范围，避免不必要的性能消耗

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