卧槽楼主你脑袋锈掉了？明显我回答的全面，而且还费劲写出代码来帮你解决问题，你竟然选一个没解决问题的答案。。。
假设，A1,B1
如果要实现在A1变则B1变，B1输入公式=A1
如果要实现B1变则A1变，A1输入公式=B1
如果要实现任意一个变另一个同时变，VBA
vba代码如下
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("A1") Then
Range("B1") = Range("A1")
ElseIf Target = Range("B1") Then
Range("A1") = Range("B1")
Else: Exit Sub
End If
End Sub
