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

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

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

3、在代码窗口，粘贴如下代码：Private Sub Workbook_SheetChange(ByVa造婷用痃l Sh As Object, ByVal Target As Range)Dim i As Integer, r As Integer, col As IntegerApplication.EnableEvents = Falser = Target.Rowcol = Target.ColumnFor i = 1 To Sheets.CountIf Sheets(i).Name <> Sh.Name Then Sheets(i).Cells(r, col).Value = Target.ValueNextApplication.EnableEvents = TrueEnd Sub