在代码窗口，粘贴如下代码：

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Dim i As Integer, r As Integer, col As Integer

Application.EnableEvents = False

r = Target.Row

col = Target.Column

For i = 1 To Sheets.Count

 If Sheets(i).Name Sh.Name Then Sheets(i).Cells(r, col).Value = Target.Value

Next

Application.EnableEvents = True

End Sub