在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教程学习网