自动更新两个Excel工作表

Question

我有两个具有相同列的Excel工作表，我想要一种方法，如果我更新一个表中的行，其他表中的相应行也会自动更新，反之亦然，对于这两个表？

这样的方式存在吗？我搜索了很多，但找不到反之亦然。

Answer 1

您需要使用一些VBA才能执行此操作。类似下面的内容将起作用，需要在脚本窗口中嵌入包含数据的每个工作表。这假设您的数据位于每张纸上的相同位置，即A1：A10。

Private Sub Worksheet_Change(ByVal Target As Range)

    'First Column
    Set KeyCells = Worksheets("sheet 1").Range("A1:A10")

    'Only undertake action if key cells are edited
    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then

        'Edit second column
        Worksheets("sheet 2").Range(Target.Address) = Target.Value

    End If

End Sub

您显然需要复制此内容才能更改工作表2，并将代码嵌入到工作表2中。