在excel中使用vba实现单元格间数据移动

来源：本站整理作者：梦在深巷时间：2016-08-31 11:35:35

下面小编为大家介绍excel中使用vba完成单元格数据移动方法，不会的朋友可以参考本文！

步骤

1、首先我们打开一个工作样表作为例子。

2、在例子中我们在a1和b1单元格分别输入有名字和地址两个分列，现在要做的就是使用vba把a1和b1单元格的内容进行互换。方法如下。

在excel中使用vba实现单元格间数据移动

3、使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：

Sub 数据互换()

ActiveSheet.Columns("B").Insert '在A列右侧插入列，即插入B列

ActiveSheet.Columns("a").Cut

ActiveSheet.Columns("B").Insert '以上两句将a列数据移至B列，原B列及以后的数据相应后移

ActiveSheet.Columns("c").Cut

ActiveSheet.Columns("a").Insert '以上两句将c列数据移至a列，原C列和D列数据相应左移一列

End Sub

在excel中使用vba实现单元格间数据移动

4、这里使用的方法是剪切插入法，insert是插入命令，cut是剪切命令。命令需要指定活动的工作表和列操作。

在excel中使用vba实现单元格间数据移动

5、如果是对行进行操作，可以将Columns替换为rows对象即可，这样就是完成了行与行的互换。对应的rows对象是数字序列，而不是字母序列。

在excel中使用vba实现单元格间数据移动

6、还有一点需要注意的是使用这种方法进行数据调整虽然序列没有发生改变，但是页面设置会因为插入和删除的原因而发生改变，可以看到运行宏后，宏指令按钮的位置发生了改变。

在excel中使用vba实现单元格间数据移动

以上就是在excel中使用vba实现单元格间数据移动方法介绍，操作很简单的，大家按照上面步骤进行操作即可，希望能对大家有所帮助！