用excel要怎么把两个不同单元格的内容替换

假设你的功能要在SHEET1中完成.
按下ALT+F11,双击左边纵栏框中的SHEET1(功能要在哪张表中完成,就双击哪张表),然后在右边的编辑框中插入下面代码.退出
以后只要你在表中用CTRL选中两个单元格时,就会自动替换它们的值

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Areas.Count = 2 Then
a = Selection.Areas(1).Value
b = Selection.Areas(2).Value
Selection.Areas(2).Value = a
Selection.Areas(1).Value = b
Else
Exit Sub
End If
End Sub

a1<=>b1
1:c1=a1;a1=b1;b1=c1;
2:整列交换，剪切a列，插入到b列后；
3:VBA编程