vba选择有数据的区域-excel vba交换两个区域中的数据

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