如何用vba实现在excel各工作表中插入一列

这种比较简单的 *** 作，录制一个宏就可以了，你在第一个表格中，点工具－－宏－－录制新宏，然后在sheet1中第一列前插入一列，copy单元格c3中的内容到插入的空白列，从A5开始到最后一行，最后，删除前四行，点击结束录制宏。考虑到执行宏后数据无法恢复，所以你要先备份一遍。全选所有的sheet，点击运行宏，OK，搞定。

打开Excel文件，制作表格、录入对应的数据。点击开发工具选项中的“宏”选项。写明代码名称，然后点击创建。写入插入一列数据的代码。点击插入一个按钮控件。将代码指定至按钮控件上。点击按钮控件，一列数据就自动插入完成了。

代码如下。打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧对应的Sheet上双击，右侧空白处粘贴下面的代码。关闭VBA窗口。然后按“Alt+F8”打开宏窗口，选择刚插入的宏，点击“执行”。

Columns("E:E").Select

    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

教你一个用VBA的技巧：

以后你想知道类似于插入的vba编码怎么写，可以利用宏录制，宏录制后会自动在编辑器中生成一个模块，你所录制的宏  的相应编码就在里面，这样你就可以参考使用了。

---