问题遇到的现象和发生背景
如A1和A2的数据保持同步,A1发生改变A2同步变化,A2发生改变A1同步变化。
如A1和A2的数据保持同步,A1发生改变A2同步变化,A2发生改变A1同步变化。
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = "$A$1" Then
Cells(Target.Row + 1, 1) = Target.Value
ElseIf Target.Address = "$A$2" Then
Cells(Target.Row - 1, 1) = Target.Value
End If
Application.EnableEvents = True
End Sub