快速交换 Excel 中两个单元格或区域的内容

在重新组织数据、调整布局或更正输入错误时，交换 Excel 中两个单元格或区域的内容是一个常见的需求。本指南将介绍三种方法，帮助您快速高效地交换 Excel 中的内容，使您无需进行大量的剪切和粘贴操作即可修改数据，从而节省时间并减少出错的风险。

手动交换两个相邻单元格的内容
只需几次点击即可轻松交换两个单元格或区域的内容
使用 VBA 代码交换两个单元格的内容

手动交换两个相邻单元格的内容

有时，您可能需要交换两个相邻的单元格。这可以手动完成，且不需要太多努力。以下是交换 A4 和 B4 单元格的步骤，如截图所示：

1. 选择要交换的一个单元格：例如，选择单元格 A4。
2. 按住 Shift 键并将光标放在所选单元格的右边界上。
3. 小心地将光标拖动到单元格 B4 的右边界。
4. 当光标显示为“工”符号时，松开鼠标。

现在，这两个单元格的内容应该已经交换了，如下图所示。

只需几次点击即可轻松交换两个单元格或区域的内容

对于需要交换非相邻单元格或区域的用户，使用像 Kutools for Excel 这样的 Excel 插件可以大大简化这一过程。

安装 Kutools for Excel 后，选择 Kutools > 区域 > 交换区域，打开“ 交换区域”对话框，并按以下步骤配置：

1. 在“交换的区域1”部分中，选择要交换的第一个单元格或区域。
2. 在 交换的区域2 部分中，选择要与之交换的第二个单元格或区域。
   提示：为了方便起见，您可以在打开“交换区域”对话框之前预先选择两个区域。预选的区域将自动分别出现在“交换的区域1”和“交换的区域2”框中。
3. 点击 确定 按钮。
   

结果

然后，两个选定的单元格或区域立即被交换。请参见截图：

使用 VBA 代码交换两个非相邻单元格的内容

当两个单元格是非相邻时，上述方法将不起作用。我们可以使用 VBA 代码来交换它们。

1. 按住 Ctrl 键并选择要交换的两个非相邻单元格。

2. 点击 开发工具 > Visual Basic，将弹出一个新的 Microsoft Visual Basic for Applications 窗口，点击 插入 > 模块，并在模块中输入以下代码：

Sub SwapTwoRange()
'Updateby20131120
Dim Rng1 As Range, Rng2 As Range
Dim arr1 As Variant, arr2 As Variant
xTitleId = "KutoolsforExcel"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1:", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2:", xTitleId, Type:=8)
Application.ScreenUpdating = False
arr1 = Rng1.Value
arr2 = Rng2.Value
Rng1.Value = arr2
Rng2.Value = arr1
Application.ScreenUpdating = True
End Sub

3然后点击 按钮运行代码，然后会弹出一个对话框供您选择要交换的两个单元格。请参见截图：

4. 在弹出的对话框中点击“确定”，两个选定的单元格即被交换。请参见截图：

注意：此 VBA 代码无法交换两个单元格的格式。

演示：使用 Kutools for Excel 交换两个随机单元格的内容

相关文章：

• 如何在 Excel 中交换行或列？