编写Excel宏 轻松完成单元格数据互换

'判断用户是否选择了两个单元格或单元格区域
                   If Selection.Areas.Count = 2 Then
                   Set XR = Selection.Areas（1）
                   Set YR = Selection.Areas（2）
                   '判断选区是否重叠
                   If Not Intersect（XR， YR） Is Nothing Then
                   Result = MsgBox（" 选择区域有重叠！交换后重叠区域的数据将有部份被覆盖！" & vbCrLf & " 是否继续？"， vbYesNo）
                   If Result = vbNo Then Exit Sub
                   End If
                   If XR.Rows.Count = YR.Rows.Count And XR.Columns.Count = YR.Columns.Count Then
                   '交换选区
                   SZ1 = XR.Formula
                   SZ2 = YR.Formula
                   XR = SZ2
                   YR = SZ1
                   Else
                   MsgBox "选择的两个数据区域大小不一样！请确认重新选择！"
                   End If
                   Else
                   MsgBox "请按住Ctrl键选择两个要交换的数据区域！"