发布网友 发布时间:2022-04-22 03:02
共2个回答
热心网友 时间:2023-11-05 17:32
对于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宏。
热心网友 时间:2023-11-05 17:33
若你是想在工作表里插入,在你需要的位置直接输入就行,若你是要把“sheet1”之类的改为名字,就双击“sheet1”,再输入你的名字回车即可