excel工作表中批量插入工作表名称

Question

一个xls表格中有N个工作表 sheet1 sheet2 sheet3 ... 如何批量在每个工作表的第一列插入本工作表的名字 比如sheet1的内容是 姓名 年龄 出生日期 ... ... ... ... ... ... ... ... ... 修改后的内容是 sheet1 姓名 年龄 出生日期 sheet1 ... ... ... sheet1 ... ... ... sheet1 ... ... ...

Answer 1

对于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宏。