ＶＢＡ练习：工作表的复制和循环命名

兰色幻想

<p>&nbsp;</p><p></p><p><br/>&nbsp;</p>

MXQCHINA

<p></p><p>代码如下:</p><p>Sub 增加()<br/>Application.ScreenUpdating = False<br/>For i = 1 To 45<br/>&nbsp; Sheets("1").Copy after:=Sheets(i + 1)<br/>&nbsp; Sheets(i + 2).Name = Sheets("1").Cells(i, 1).Value<br/>Next i<br/>Sheets(1).Select<br/>Application.ScreenUpdating = True</p><p>End Sub</p><p>Sub 删除()<br/>Application.DisplayAlerts = False<br/>For i = 45 To 1 Step -1<br/>&nbsp; Sheets(i + 2).Delete<br/>Next i<br/>Application.DisplayAlerts = True<br/>End Sub</p>

hhzjxss

下载看看！

gazkc

<p>学习了！</p>