Excel实战技巧56： 快速交换所选的两个单元格区域中的值

'交换所选择的两个单元格区域
Sub SwapTwoRanges()
   Dim rng As Range
   Dim rngTemp As Variant
    '要交换的区域
   Set rng = Selection
    '判断是否是两个区域且它们大小相同
   If rng.Areas.Count <> 2 Or _
      rng.Areas(1).Cells.Count <> _
      rng.Areas(2).Cells.Cells.Count Then
      MsgBox "请选择两个大小相同的区域"
      Exit Sub
   End If
    '临时存储第一个区域的数据
   rngTemp = rng.Areas(1).Cells.Formula
    '将第二个区域的数据输入到第一个区域
   rng.Areas(1).Cells.Formula = rng.Areas(2).Cells.Formula
    '将第一个区域的数据填到第二个区域
   rng.Areas(2).Cells.Formula = rngTemp
End Sub