[已解决]自动添加工作表并复制数据的问题

YangYangg

附件 自动添加工作表并复制数据.rar (3.7 KB, 下载次数: 4)

2013-7-6 15:47 上传

点击文件名下载附件
谢谢！

最佳答案

月排行榜 / 总排行榜

suye1010

2013-7-6 15:59

1. Sub AddSheet()
   
2. On error resume next
   
3. For i=2 to 49
   
4. Sheets(1).Copy After:=Sheets(sheets.count)
   
5. sheets(sheets.count).name=i
   
6. next i
   
7. End Sub

复制代码

跳转到最佳答案楼层

那么的帅

Sheet3后面的工作表，自动添加到Sheet49 ?
什么意思？

suye1010

1. Sub AddSheet()
   
2. On error resume next
   
3. For i=2 to 49
   
4. Sheets(1).Copy After:=Sheets(sheets.count)
   
5. sheets(sheets.count).name=i
   
6. next i
   
7. End Sub

复制代码

YangYangg

那么的帅 发表于 2013-7-6 15:55
Sheet3后面的工作表，自动添加到Sheet49 ?
什么意思？

简单说：Sheet1里的数据，要复制48次，即到Sheet49.默认工作表是三个，后面的自动添加。

谢谢老师关注。