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

huiz999

Sub 复制工作表()

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

53541234

试一下，这样应该可以！

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

huiz999

QUOTE:

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

试一下，这样应该可以！

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

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

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

northwolves

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

huiz999

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编辑过]