VBA实现同工作簿下多工作表单元格内容同步更新

1、 单击菜单：工具-宏-Visual Basic编辑器或者按ALT+F11打开VBE编辑器。

2、 鼠标左键双击“工程-VBAProject窗口”下的ThisWorkbook，弹出代码窗口。

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

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