excel中使用vba完成单元格数据移动工具/原料moreexcel2013更多经验请关注，如果帮到了你，请在上方给个投票谢谢支持。 好人一生平安。 先顶后看年薪百万，如果帮到了你，帮忙给个好评，这对小编很重要，万分感谢。方法/步骤1/6分步阅读

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

2/6

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

3/6

使用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/6

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

5/6

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

6/6

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

注意事项

谢谢你的投票。

你的投票是我编辑经验的动力。谢谢你。

EXCEL单元格表格