同步改变两个工作表数据

1、在EXCEL底部的sheet1标签上点鼠标右键,选"查看代码",调出sheet1的代码窗口.

2、将下面代码粘贴进去:

Private Sub Worksheet_Change(ByVal Target As Range)

 

If Target.Address = "$A$1" Then Sheets("sheet2").Range("a1") = Target

 

End Sub

3、同样,回到EXCEL窗口,在sheet2表的底部标签上用右键"查看代码"

4、调出sheet2的代码窗口,输入下面代码:

Private Sub Worksheet_Change(ByVal Target As Range)

 

If Target.Address = "$A$1" Then Sheets("sheet1").Range("a1") = Target

 

End Sub

5、完成

回到EXCEL窗口后就可以使用了.

可以看到,这两段代码基本相同,不同的地方是代码的第二行的中间部分,分别引用了对方的工作表名字.

 

代码的含义是,当工作表(sheet1或sheet2)中的内容改变时,并且改变的单元格是A1单元格时,代码自动将改变的内容写入到另一个工作表的A1单元格.