[已解决]怎么添加工作表并指定名字

05rachael

怎么在现有 的 工作表（SHEET2)后面添加20张工作表，并且名字是SHEET1 中 A1:A20 的 值 ？

求vba　语句　

最佳答案

月排行榜 / 总排行榜

56743007

2010-9-16 21:11

 Sub AddWorksheet()

FOR i=0 to 19
     Sheets.Add After:=Sheets(2+i)
     ActiveSheet.Name = sheets("sheet1").cells(i+1,1).value

next i

 End Sub

跳转到最佳答案楼层

56743007

 Sub AddWorksheet()

FOR i=0 to 19
     Sheets.Add After:=Sheets(2+i)
     ActiveSheet.Name = sheets("sheet1").cells(i+1,1).value

next i

 End Sub

那么的帅

NPm2EIBb.rar (8.29 KB, 下载次数: 42)

2010-9-16 21:24 上传

点击文件名下载附件
怎么添加工作表并指定名字