这个例子教你如何在Excel VBA交换两个值。你会经常需要更复杂的程序这个结构,我们将在后面看到。

现状:

工作表上的两个值。

Swap Values in Excel VBA

将工作表上的一个命令按钮并添加以下代码行:

1.首先,我们声明一个名为Double类型的临时变量。

Dim temp As Double

2.我们初始化变量temp以单元格A1的值。

temp = Range("A1").Value

3.现在我们可以放心地写B1单元格的值的单元格A1(我们所储存的A1单元格的值来临时,所以我们不会失去它)。

Range("A1").Value = Range("B1").Value

4.最后,我们写单元格A1(写入温度)的细胞B1的值。

Range("B1").Value = temp

5.单击命令按钮两次。

结果:

Swap Values Result

Swap Values Result