用VBA怎样让Excel两个不同的表同时更新

您可以使用VBA编写代码来实现Excel两个不同的表同时更新的功能。以下是一个示例代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Worksheets("Sheet1").Range("A1:A10")) Is Nothing Then
        Worksheets("Sheet2").Range("A1:A10").Value = Worksheets("Sheet1").Range("A1:A10").Value
    ElseIf Not Intersect(Target, Worksheets("Sheet2").Range("B1:B10")) Is Nothing Then
        Worksheets("Sheet1").Range("B1:B10").Value = Worksheets("Sheet2").Range("B1:B10").Value
    End If
End Sub

该代码中，`Worksheet_Change`是一个事件处理器，当任何一个表格的数据发生更改时，该事件就会被触发。代码中使用`Intersect`函数判断更改的单元格是否在指定的范围内，如果在范围内，则将另一个表格的相应单元格的值更新为当前表格的值。

请注意，该示例代码仅演示了如何更新两个表格中的特定单元格，您需要根据实际情况进行修改和调整。