女人出轨脸上变化:excel中，如何这样实现？

编段宏就是了。首先给对应的工作表设定一个响应Change事件的过程
，在过程中判断更改的单元格是否是你想要的单元格，如果是的话，将更改了数据单元格赋值给需要同步的单元格就可以了。反之也是一样的。
顺便给个例子，供你参考,不过该方法不适用于拖动填充的更改：
Private Sub Worksheet_Change(ByVal Target As Range)
Set xx = Worksheets("sheet1").Cells(3, 1) '将单元格A3赋给xx
Set yy = Worksheets("sheet1").Cells(3, 2) '将单元格B3赋给yy
'判断被更改的单元格是A3还是B3，然后相互赋值
If Target.Address() = xx.Address() Then
Worksheets("sheet1").Cells(3, 2) = Worksheets("sheet1").Cells(3, 1)
ElseIf Target.Address() = yy.Address() Then
Worksheets("sheet1").Cells(3, 1) = Worksheets("sheet1").Cells(3, 2)
End If
End Sub
如果想要让拖动自动的填充时，也能相互同步的话，请用下面的事件响应过程：在过程中判断Target被填充的范围内是否包含你的单元格，有的话就执行同步操作，下面给个例子。如果你还有其他目的的话，请自己参考此琢磨吧。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set xx = Worksheets("sheet1").Cells(3, 1) '将单元格A3赋给xx
Set yy = Worksheets("sheet1").Cells(3, 2) '将单元格B3赋给yy
'利用循环，在当前选定的单元格范围Target中查找是否有需要同步
'的单元格,有就将该单元格赋值给需要同步的另一个单元格。
For Each c In Target
If c.Address = xx.Address() Then
Worksheets("sheet1").Cells(3, 2) = xx
ElseIf c.Address = yy.Address() Then
Worksheets("sheet1").Cells(3, 1) = yy
End If
Next c
End Sub

没有办法。