excel用VBA互換兩個單元格或區域中的數據

有時需要在Excel工作表中互換兩個區域中的數據，如果區域相鄰可以直接用拖動鼠標并按住Shift鍵的方法進行互換。而當兩區域不相鄰且兩個區域中的數據量較大時用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