代碼：

　　'判斷用戶是否選擇了兩個單元格或單元格區域
　　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鍵選擇兩個要交換的數據區域！"