用宏很快的。确保待复制的表格是第一张。同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：
Sub test()
For i = 1 To 3 '复制3份，请自己修改这个3
Sheets(1).Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = Sheets(1).Name & "-" & i
Next i
End Sub
把粗体的3改为你需要的，在此界面下直接按F5，就可以了。
需要用到VBA。用VBA实现非常简单
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024