Excel怎么批量插入工作表？

对于n张工作表的情况，为快捷实现、减少工作量，必须通过vba来实现
工具菜单---宏---vb编辑器（alt+f11），在vb编辑器中，插入－－－模块，然后将以下代码复制到右边窗口中。
sub
inset()
'
在当前每个工作表内插入第一列，而输入当前工作表名(酉告-20100924）
dim
z,
shet,
row
for
z
=
1
to
worksheets.count

row
=
worksheets(z).usedrange.rows.count

sheets(z).select

range("a1:a"
&
row).select

selection.insert
shift:=xltoright

selection.formular1c1
=
worksheets(z).name
next
end
sub
以后要批量插入时，直接在excel，工具菜单---宏---宏（alt+f8），执行inset宏。

1
工具菜单下选项命令打开对话框，常规选项卡上，更改工作簿中工作表数，下次再进入时工作表就多了2
在工作表标签上右击，选择所有工作表，再右击插入工作表，选择几个表，就可以一次性插入几个表。然后按F4重复就行了