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

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

步骤

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

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

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

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

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

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

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

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。