关联不同sheet的单元格同步

复兴的征程

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Sheet1.Range("A1") = Sheet2.Range("A1")
ElseIf Target.Column = 2 Then
Sheet1.Range("A1") = Sheet2.Range("A1")
End If
End Sub
我这代码只能让sheet2改变同步去sheet1，但不能让sheet1改变同步去sheet2。

我主要就想实现不同sheet的两个单元格互相关联同步，任一更改其中一个，另外一个也会随着改变，两个单元格内容一致

复兴的征程

我已找到方法，送给有需要的人
Sheet1   ：Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" And Target.Address <> "$B$1" Then Exit Sub
Application.EnableEvents = False
If Worksheets("Sheet1").Cells(1, 1).Value <> "" Then Worksheets("Sheet2").Cells(1, 1).Value = Worksheets("Sheet1").Cells(1, 1).Value
If Worksheets("Sheet2").Cells(1, 1).Value <> "" Then Worksheets("Sheet1").Cells(1, 1).Value = Worksheets("Sheet2").Cells(1, 1).Value
Application.EnableEvents = True
End Sub

Sheet 2 ：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" And Target.Address <> "$B$1" Then Exit Sub
Application.EnableEvents = False
If Worksheets("Sheet2").Cells(1, 1).Value <> "" Then Worksheets("Sheet1").Cells(1, 1).Value = Worksheets("Sheet2").Cells(1, 1).Value
If Worksheets("Sheet1").Cells(1, 1).Value <> "" Then Worksheets("Sheet2").Cells(1, 1).Value = Worksheets("Sheet1").Cells(1, 1).Value
Application.EnableEvents = True
End Sub