有时我们需要交换两个单元格区域的数据，即第一个区域的数据放在第二个区域，而第二个区域的数据放在第一个区域。

一般来说，我们可以先将第一个区域的数据复制到另一个地方，然后将第二个区域的数据复制到第一个区域，最后将之前复制到另一个地方的数据复制到第二个区域。

然而，使用VBA代码可以帮助我们快速完成任务，如下图1所示。

图1

代码如下：

交换两个选定的单元格区域。

子SwapTwoRanges()

调光范围

变型为变型

要交换的区域。

设置rng=选择

判断是否是两个区域，大小相同。

如果rng。面积。计数2或_

rng。面积(1)。单元格。计数_

rng。面积(2)。细胞。细胞。然后计数

MsgBox“请选择两个大小相同的区域”。

出口接头

如果…就会结束

暂时存储第一区域的数据。

rngTemp=rng。面积(1)。单元格。公式

将第二个区域的数据输入第一个区域。

rng。面积(1)。单元格。公式=rng。面积(2)。单元格。公式

将第一区域的数据填入第二区域。

rng。面积(2).单元格.公式=rngTemp

末端接头

请注意，在运行代码之前，您需要选择两个大小相同的区域，即交换数据的区域。

代码的图片版本如下：