如何批量在同一工作簿内将一个工作表批量复制出很多个相同的工作表并依次批量命名

gocome_2011 · 发表于 2011-4-7 15:22

如何批量在同一工作簿内将一个工作表批量复制出很多个相同的工作表（复制100多张），并依次批量命名。

ctp_119 · 发表于 2011-4-7 16:14

具体情况请看附件，1次复制100个

ctp_119 · 发表于 2011-4-8 16:11

原帖由 冲天妖狐 于 2011-4-8 14:54 发表
并依次批量命名呢？

下面是可以命名的。如附件：
Sub Macro1()
For i = 1 To 100
Sheets("Sheet1").Select
Sheets("Sheet1").Copy Before:=Sheets(1)
ActiveSheet.Name = i
Next i
End Sub

冲天妖狐 · 发表于 2011-4-8 14:54

并依次批量命名呢？

yutiger0 · 发表于 2013-6-30 14:28

学习了，好贴

laoshenji · 发表于 2013-9-9 15:46

学习了，谢谢大师们

bayannur · 发表于 2013-9-9 16:10

ctp_119 发表于 2011-4-8 16:11
下面是可以命名的。如附件：
Sub Macro1()
For i = 1 To 100

好方法！平时很少用excel编程

denxh · 发表于 2020-6-30 20:17

ctp_119 发表于 2011-4-8 16:11
下面是可以命名的。如附件：
Sub Macro1()
For i = 1 To 100

但是会把命令按钮同时复制过来喔

ctp_119 · 发表于 2020-7-2 13:19

denxh 发表于 2020-6-30 20:17
但是会把命令按钮同时复制过来喔

命令按钮删除即可！

tttomya · 发表于 2022-10-31 14:29

ctp_119 发表于 2011-4-7 16:14
具体情况请看附件，1次复制100个

您好版主

我发现这个代码有局限性。就是复制100张表，它是极速飞快的不到3秒钟就成了。复制500张表，速度也尚可，约摸1分钟不到。要是复制超过1000张表，它立马就变成蜗牛和乌龟了，复制到1200张后，再接着每复制一张就要耗费5秒钟。我还试着加入了Application.Calculation = xlManual ；Application.ScreenUpdating = False '代码。虽然快了一点点。但是还是没起到大作用。

迷惑啊！还请版主解惑

。有没有办法让它变得复制2000张表的速度和复制100张表的速度一样。比方说：就是复制100张要3秒，复制2000张为3秒*20=60秒。

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

[求助] 如何批量在同一工作簿内将一个工作表批量复制出很多个相同的工作表并依次批量命名

评分