如何批量复制工作表（已解决）

helloke

问题已解决，感谢至尊宝和sophiemery

[em04][em04][em04]

[此贴子已经被作者于2007-11-6 23:33:05编辑过]

leolee82

'我也是现学现卖。。。。刚加的VBA入门班，不知道我做的能不能满足你的要求。希望多多指正

Public m As Integer
Public s As Integer
Public yusai As String
Public juesai As String


Sub 制表()
yusai = Sheets(1).Range("b3")
juesai = Sheets(1).Range("b4")

Call 添加(yusai)
Call 添加(juesai)

End Sub

Sub 添加(nm)
m = Sheets(1).Range("D3").Value
s = Sheets(1).Range("E3").Value

For i = 1 To m
    For j = 1 To s
    Call sheetcopy
    With Sheets(Sheets.Count)
        .name = nm & i & "." & j
        .Range("c2") = i
        .Range("c3") = j
        .Range("c4") = nm
    End With
    Next j
Next i
End Sub

Sub sheetcopy()
    Sheets(Sheets.Count).Copy after:=Sheets(Sheets.Count)
End Sub

leolee82

好多问号
问号都改成空格就好了
                                                                                                           －－－－VBA6组:leolee82