请问：如何批量新建并重命名工作表

gpsro · 发表于 2009-11-18 13:05

按sheet1内，部门111、222、333、444新建工作表，各表内是对应的员工姓名。

gpsro · 发表于 2009-11-18 13:06

员工姓名及部门命名没有规律

ysese · 发表于 2009-11-18 13:12

使用 VBA

重命名
Sub ()
For I = 1 To Sheets.Count
Sheets(I).Name = Sheet1.Cells(I, 1).Value
Next I
End Sub

[ 本帖最后由 ysese 于 2009-11-18 13:14 编辑 ]

gpsro · 发表于 2009-11-18 13:17

请问VBA代码在哪里输入呢？

ysese · 发表于 2009-11-18 13:31

参考附件！

comihuang · 发表于 2012-7-19 11:59

ysese 发表于 2009-11-18 13:31
参考附件！

谢谢你，帮了很大忙！！！

		自动登录	找回密码
密码			免费注册

[求助] 请问：如何批量新建并重命名工作表