[求助]：怎么自动添加n个工作表并复制表样？

g;kzyp · 发表于 2006-5-20 13:52:46

您需要登录才可以下载或查看，没有账号？立即注册

×

怎么在工作簿中自动添加n个工作表并复制Sheet2表样？
用VBA怎么实现？

chylhr · 发表于 2006-8-2 15:36:44

Sub CopySheet()
Dim i As Integer
For i = 1 To n 'n的限制为:n与工作薄中现有工作表的数量之和不得超过256
Sheets("Sheet2").Copy after:=Sheets(2)
Next
End Sub

账号		自动登录	找回密码
密码			立即注册