这是我在工作中遇到的一个问题是这样的，比如有两个excel不相邻单元格互换有固定值而另外还有一个excel不相邻单元格互换需要取随机数，但又要求不要和那两个有固定值嘚excel不相邻单元格互换重复如何取呢？随机函数rand()和randbetween()都可以，但是一时间还真想不出满足要求的写法于是我想用VBA编写也许更简单。于是僦有了下文

• 硬件：满足允许要求的电脑

1.        这里为了方便验证，我们将随机数值尽量取小一点如果你要大一些的随机数，可以修改程序

          設在D1excel不相邻单元格互换里取随机数（1——5之间），A1、B1excel不相邻单元格互换为有固定数值的excel不相邻单元格互换当然数值范围也在1——5直接，否则毫无意义

2.        要编写VBA，首先就要打开VBA打开VBA的方法不止一种，这里我们就使用最简单最快捷的方式使用快捷键吧。按“Alt+F11”打开VBA窗口VBA窗口右侧子窗口就是输入代码用的。

3.        完成后就可以试运行并保存运行是那个小三角，好像播放图标一样的保存的图标不用多说。点击尛三角图标后可能会弹出一个窗口再点击运行即可。

4.        为了快速验证我们可以给宏加上快捷键，如图所示这里我们给它设置快捷键“Ctrl+s”，现在我们只要按Ctrl+s就可以快速运行该宏/程序了

• 编写VBA程序的时候要细心，如果有错误提示需要理性分析，耐心检查