在 Excel 中交换单元格内容？

Question

有没有简单的方法可以交换 Microsoft Excel 中两个单元格的内容？

简单是指键盘快捷键或菜单项，无需复制到临时单元格或编写 VBA 脚本或类似操作。换句话说，我正在寻找一种方法，只需选择两个单元格并单击某个菜单项或按下某个组合键即可交换其内容。肯定有办法做到这一点吧？

Answer 1

从：http://www.extendoffice.com/documents/excel/860-excel-swap-contents-of-two-cells.html

有时，需要交换两个相邻的单元格。我们可以轻松地手动完成。看下面的截图，我想交换单元格 A4 和 B4，请按如下方式操作：

1. 选择要交换的单元格。在此示例中，选择单元格 A4。

2. 按转移键，将光标置于右边界。

3. 然后将光标拖到单元格 B4 的右边框。

4. 当显示“工”时，松开鼠标。

5. 并且两个单元格的内容已交换。

通过这种方法，我们还可以交换两个相邻的行或列。

Answer 2

对于相邻的相同大小的矩形范围的特殊情况，您可以使用对类似问题的回答。

1. 选择右侧或底部范围
2. 按Ctrl+X
3. 选择相邻的范围（即正上方或左侧）
4. 按Ctrl+ +（+通常在键上方=，因此相当于Ctrl+ Shift+ =）

请注意，您可以使用相同的步骤交换整个相邻的行或列。

Answer 3

简单来说，我指的是使用键盘快捷键或菜单项，无需复制到临时单元格或编写 VBA 脚本或类似的东西。我正在寻找一种方法，只需选择两个单元格并单击某个菜单项或按下某个组合键即可交换其内容。

为什么要施加此限制？创建宏可使此操作变得简单。据我所知，没有其他方法可以做到这一点。您可以将宏分配给按钮或热键。

Sub Swap()     
    If Selection.Count <> 2 Then     
         MsgBox "Select 2 cells (only) to swap."     
         Exit Sub     
    End If     
    Set trange = Selection     
    If trange.Areas.Count = 2 Then     
         temp = trange.Areas(2)     
         trange.Areas(2) = trange.Areas(1)     
         trange.Areas(1) = temp     
    Else     
         temp = trange(1)     
         trange(1) = trange(2)     
         trange(2) = temp     
    End If     
End Sub     

Answer 4

选择要交换的第一组单元格并按ctrl+ x：

选择您想要交换的单元格旁边的单元格，然后点击ctrl+ +。