【分享成果，随喜正能量】经常在做一件事时，一开始动力很足，可时间久了，就会出现意志力消耗殆尽。流水不腐，户枢不蠹。做一件对自己好的小事，养一个好习惯，慢慢坚持，持续去做，会在不动声色间，内化为一个人的气质，改变一个人的行为，从而改变人的命运。。

《VBA之Excel应用》（10178983）是非常经典的，是我推出的第七套教程，定位于初级，目前是第一版修订。这套教程从简单的录制宏开始讲解，一直到窗体的搭建，内容丰富，实例众多。大家可以非常容易的掌握相关的知识，这套教程共三册，十七章，都是我们在利用EXCEL工作过程中需要掌握的知识点，希望大家能掌握利用。今日讲解的内容是:第二节：利用VBA代码交换三个单元格的值

第二节利用VBA代码交换三个单元格的值

大家好，我们今天将讲解你初识VBA后的第一个实例：利用VBA做三个单元格值得交换。这个例子教你如何利用Excel VBA交换两个值。当然，我们会在以后讲解更复杂的程序，我们会一步步完善我们的知识结构，学习是个过程，我们要一步步的来。

1实际应用场景：实现工作表单元格值的交换

如下面的工作表，上面的三个单元格A5,C5,E5内有三个值1,2,3。我们要让这三个值变换位置。

我们如何利用VBA代码来实现这个目的呢？下面我会先给出代码，然后我再讲解。

2实现三个单元格值变换位置的代码

下面我先给出我的代码：

Private Sub CommandButton1_Click()

    Dim tempA As Double, tempB As Double, tempC As Double

    tempA = Range("A5").Value

    tempB = Range("C5").Value

    tempC = Range("E5").Value

    Range("A5").Value = tempC

    Range("C5").Value = tempA

    Range("E5").Value = tempB

End Sub

上面的代码写在了CommandButton1_Click中，这是一个按钮的运行事件，在工作表界面上双击按钮就会进入VBA编辑的界面。同时，在工作表界面上，点击这个按钮，代码就会运行。

我们先看代码截图：

3实现三个单元格值变换位置的代码解读

1）Dim tempA As Double, tempB As Double, tempC As Double

上述代码声明三个名为tempA, tempB, tempC 的Double类型变量。

2）tempA = Range("A5").Value

上述代码将单元格A5的值赋给tempA。

3）tempB = Range("C5").Value

上述代码将单元格C5的值赋给tempB。

4) tempC = Range("E5").Value

上述代码将单元格E5的值赋给tempC。

 5) 代码运行到这里，我们已经将单元格的值存储到三个变量中，因此我们不会丢失它。

 6）Range("A5").Value = tempC

上述代码将tempC的值赋给单元格A5。

7）Range("C5").Value = tempA

上述代码将tempA的值赋给单元格C5。

8）Range("E5").Value = tempB

上述代码将tempB的值赋给单元格E5。

9) 单击命令按钮取得结果：

今日内容回向：

  1）如何实现工作表单元格值位置的移动？

  2）Range("A5").Value是什么意思？

  3) 再次点击运行按钮，会出现什么样的运行结果？

本讲内容参考程序文件：工作簿01.xlsm

我20多年的VBA成果全在下面的资料中：