跳至主要内容

Kutools for Office — 一套工具，五种功能。事半功倍。

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

Author Xiaoyang Last modified

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

swap contents of two ranges

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

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

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

sample data

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

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

the two cells are swapped

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

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

Kutools for Excel 提供了超过 300 种高级功能，简化复杂任务，提升创造力与效率。 通过集成 AI 能力，Kutools 能够精准自动执行任务，让数据管理变得轻松简单。Kutools for Excel 的详细信息...         免费试用...

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

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

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

two selected ranges are swapped

  如果您想免费试用（30天）此工具，请点击下载，然后按照上述步骤进行操作。

使用 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然后点击 run button 按钮运行代码，然后会弹出一个对话框供您选择要交换的两个单元格。请参见截图：

select two range separately

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

the two selected ranges are swapped

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

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

 

相关文章：

最佳Office办公效率工具

🤖 Kutools AI 助手：以智能执行为基础，彻底革新数据分析 |代码生成 |自定义公式创建|数据分析与图表生成 |调用Kutools函数……
热门功能：查找、选中项的背景色或标记重复项 | 删除空行 | 合并列或单元格且不丢失数据 | 四舍五入……
高级LOOKUP：多条件VLookup|多值VLookup|多表查找|模糊查找……
高级下拉列表：快速创建下拉列表 |依赖下拉列表 | 多选下拉列表……
列管理器： 添加指定数量的列 | 移动列 | 切换隐藏列的可见状态 | 比较区域与列……
特色功能：网格聚焦 |设计视图 | 增强编辑栏 | 工作簿及工作表管理器 | 资源库（自动文本） | 日期提取 | 合并数据 | 加密/解密单元格 | 按名单发送电子邮件 | 超级筛选 | 特殊筛选（筛选粗体/倾斜/删除线等）……
15大工具集：12项 文本工具（添加文本、删除特定字符等）|50+种 图表 类型（甘特图等）|40+实用 公式（基于生日计算年龄等）|19项 插入工具（插入二维码、从路径插入图片等）|12项 转换工具（小写金额转大写、汇率转换等）|7项 合并与分割工具（高级合并行、分割单元格等）| ……
Kutools支持多种语言——可选择英语、西班牙语、德语、法语、中文等40多种语言！

通过Kutools for Excel提升您的Excel技能，体验前所未有的高效办公。 Kutools for Excel提供300多项高级功能，助您提升效率并节省时间。 点击此处获取您最需要的功能……

Office Tab为Office带来多标签界面，让您的工作更加轻松

  • 支持在Word、Excel、PowerPoint中进行多标签编辑与阅读。
  • 在同一个窗口的新标签页中打开和创建多个文档，而不是分多个窗口。
  • 可提升50%的工作效率，每天为您减少数百次鼠标点击！

所有Kutools加载项，一键安装

Kutools for Office套件包含Excel、Word、Outlook和PowerPoint的插件，以及Office Tab Pro，非常适合跨Office应用团队使用。

Excel Word Outlook Tabs PowerPoint
  • 全能套装——Excel、Word、Outlook和PowerPoint插件+Office Tab Pro
  • 单一安装包、单一授权——数分钟即可完成设置（支持MSI）
  • 协同更高效——提升Office应用间的整体工作效率
  • 30天全功能试用——无需注册，无需信用卡
  • 超高性价比——比单独购买更实惠