1、首先我们打开一个工作样表作为例子。
2、在例子中我们在a1和b1单元格分别输入有名字和地址两个分列，现在要做的就是使用vba把a1和b1单元格的内容进行互换。方法如下。
3、使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：Sub 数据互换()ActiveSheet.Columns("B").Insert '在A列右侧插入列，即插入B列ActiveSheet.Columns("a").CutActiveSheet.Columns("B").Insert '以上两句将a列数据移至B列，原B列及以后的数据相应后移ActiveSheet.Columns("c").CutActiveSheet.Columns("a").Insert '以上两句将c列数据移至a列，原C列和D列数据相应左移一列End Sub
4、这里使用的方法是剪切插入法，insert是插入命令，cut是剪切命令。命令需要指定活动的工作表和列操作。
5、如果是对行进行操作，可以将Columns替换为rows对象即可，这样就是完成了行与行的互换。对应的rows对象是数字序列，而不是字母序列。
6、还有一点需要注意的是使用这种方法进行数据调整虽然序列没有发生改变，但是页面设置会因为插入和删除的原因而发生改变，可以看到运行宏后，宏指令按钮的位置发生了改变。
