能否在EXCEL中批量复制工作表

Shiwenmei · 发表于 2011-7-9 16:32

我需要在一个工作薄里面直接复制几百张请问有什么方法吗？可以用VBA吗！请帮助解决谢谢！

5blessyou · 发表于 2011-7-9 16:42

要是连续的直接选中第一个，然后按shift键选中最后一个，右键移动或复制，选中建立副本

Shiwenmei · 发表于 2011-7-9 17:11

请帮我看一下附件，多谢礼了

外块300 · 发表于 2012-6-29 20:42

Shiwenmei 发表于 2011-7-9 17:11
请帮我看一下附件，多谢礼了

以下代码可以吗？

Sub 复制100张()
For j = 1 To 100
If j < 100 Then
For i = 2 To 4
Worksheets(i).Copy after:=Sheets(12)
Next i
Else
Exit For
End If
Next
End Sub

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