Swap Values 交换两个值

重点内容

适用版本

桌面版通用（Excel 365 / 2021 / 2019 等）。

完整代码

Sub Swap_Values()
    Dim temp As Double

    temp = Range("A1").Value
    Range("A1").Value = Range("B1").Value
    Range("B1").Value = temp
End Sub

代码怎么运行

1. 按 Alt+F11 打开 VBA 编辑器（Visual Basic Editor）
2. Insert›Module，把上面代码贴进去
3. 回到工作表，Developer›Insert›Button（表单控件），画一个命令按钮，指定给 Swap_Values 这个宏

1. 在 A1、B1 分别输入两个不同的数字
2. 点击命令按钮两次以上，观察 A1 和 B1 的数值互换

代码逻辑说明

• Dim temp As Double：先声明一个 Double 类型的变量 temp，用来临时存放数字
• temp = Range("A1").Value：把 A1 的值存进 temp，这一步是关键——不这样做的话，直接把 B1 写进 A1 会导致 A1 原本的值永久丢失
• Range("A1").Value = Range("B1").Value：把 B1 的值写进 A1
• Range("B1").Value = temp：把刚才存起来的原 A1 值写进 B1，完成交换

学完你会

• 会用临时变量交换两个单元格的值
• 看懂并能修改 Range().Value 赋值的写法
• 理解为什么不能直接互相赋值，一定要先借一个变量

常见错误

• 直接写 Range("A1").Value = Range("B1").Value 再写 Range("B1").Value = Range("A1").Value，没有用临时变量——第二行执行时 A1 已经被覆盖成 B1 的值，结果两个格子都变成同一个数字
• temp 变量类型用 Integer 但单元格里其实是小数，会导致小数部分被截断，建议用 Double 更保险

Sources

Blog / Website：

1. Swap Values