批量生成31个工作表,重命名

拼音佳佳 · 发表于 2009-9-16 09:54

生成31个工作表.rar (7.41 KB, 下载次数: 198)

For ia = 1 To 30
Sheets("Sheet1").Select
Sheets("Sheet1").Copy After:=Sheets(1)
Next

For ib = 1 To 31
Worksheets(ib).Name = ib
Next

用了两个循环实现的.第一个就很简单了,录制宏,然后直接套一个for next就好.
第二个可以修改一下代码,实现工作表名称的控制.

张三李四 · 发表于 2009-9-16 10:04

Private Sub CommandButton1_Click()
For h = 1 To 30
Sheets("Sheet1").Copy After:=Sheets(ThisWorkbook.Sheets.Count)
Sheets(ThisWorkbook.Sheets.Count).Name = Cells(h, 1)
Next h
End Sub

拼音佳佳 · 发表于 2010-12-30 16:06

嗯,这是错误的方法.自己进步了,发现以前有些方法其实是错误的...一日一表,不是制表的好习惯.

张三李四 · 发表于 2010-12-30 16:10

恭喜楼主取得很大的进步。

andui · 发表于 2011-1-5 19:44

虽然看不懂
但是总有一天会看懂的

joyark · 发表于 2011-9-17 03:24

謝謝，學習

dfzz001 · 发表于 2011-9-17 15:57

好！！！！！！！！！！！

LY333 · 发表于 2015-10-3 14:14

还不会用宏{:soso_e130:}

zax010 · 发表于 2015-10-3 18:15

Sub zz()
For ia = 2 To 31
Sheets("Sheet1").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = "" & ia
Next
Sheets("Sheet1").Name = "" & 1
End Sub

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

[分享] 批量生成31个工作表,重命名