在excel工作表中，我们有时录入的数据可能出错，需要对两个区域的内容进行交换。可以通过另一个的区域，直接拖动移动数据。
但是如果两个区域不相邻，拖动会相当麻烦。这里我们用vba代码来处理互换两区域中的数据。
在工作表中选择两个形状相同的、无公共部分的区域，然后执行代码即可
详细源码：
Sub TwoAreasSwap() Dim TheArea1, TheArea2 As Variant If Selection.Areas.Count <> 2 Then MsgBox "请选择两个区域！" Exit Sub ElseIf Selection.Areas(1).Cells.Count <> Selection.Areas(2).Cells.Count Or Selection.Areas(1).Rows.Count <> Selection.Areas(2).Rows.Count Then MsgBox "请选择两个形状相同的区域！" Exit Sub Else TheArea1 = Selection.Areas(1).Cells TheArea2 = Selection.Areas(2).Cells Selection.Areas(1).Cells = TheArea2 Selection.Areas(2).Cells = TheArea1 End If End Sub
参考自：Office教程学习网
