Excel教程下载中心,Microsoft技术社区联盟成员,全球领先的Excel2003/2007/2010门户,培训学习Office的最佳社区

发新话题
打印

一次性复制多个sheet1工作表的代码     hits : 442

一次性复制多个sheet1工作表的代码

Sub 复制工作表()

    Sheets("sheet1").Select
    Sheets("sheet1").Copy After:=Sheets(1)
End Sub
请问,如果是一次性复制多个sheet1工作表,代码应该是怎么写?谢谢。

TOP

试一下,这样应该可以!

Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Copy After:=Sheets(3)

TOP

QUOTE:
以下是引用53541234在2006-12-7 23:43:54的发言:

试一下,这样应该可以!

Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Copy After:=Sheets(3)

谢谢你的帮助,不过,这没有到达我的目的,你的代码是一次性复制三个不同的表格,而我的目的是要一次性复制多个sheet1,也就是比如一次性复制10个sheet1工作表,不知道应该怎么写代码?

烦请各位请帮助一下,谢谢。

TOP

Sub 复制工作表()
Dim i As Byte
For i = 1 To 10
    Sheets("sheet1").Copy After:=Sheets(1)
    Next
End Sub

TOP

QUOTE:
以下是引用northwolves在2006-12-8 0:41:46的发言:
Sub 复制工作表()
Dim i As Byte
For i = 1 To 10
    Sheets("sheet1").Copy After:=Sheets(1)
    Next
End Sub

多谢northwolves版主正解!

[此贴子已经被作者于2006-12-8 0:50:31编辑过]

TOP

发新话题
本论坛言论纯属发表者个人意见,与Excel Home立场无关,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!