excel中使用vba完成单元格数据移动

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

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

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