excel 中如何将同一工作簿中的一个工作表批量复制出很多个相同的工作表，记得是批量复制而不是一个个来做

Question

如题所述

Answer 1

先选定需要复制的工作表，在左下角点击选择，这个你应该知道吧，然后点右键，复制工作表，选择建立副本，这样两次建立两个副本之后，按ctrl键点击鼠标选择原来工作表和两个副本，再点右键，建立副本，就可以创立六个这样的工作表了，再按ctrl键点击鼠标就是六个了，再创建副本就是十二个，不知道你要多少，二百多个也就几下吧

Answer 2

在VBA中用Inputbox函数来取得与批量复制的数量，编写代码执行批量复制的程序即可，几行代码即可，想要复制多少个工作表都行。 代码如下：
Sub macro2()
Dim K As Single
Dim N As Single

K = Application.InputBox(prompt:="请输入欲拷贝表格的数目", Type:=1)
N = 1

Application.ScreenUpdating = False
Do Until N = K
If N > K Then
Exit Sub
End If

ThisWorkbook.Sheets("Sheet1").Activate
Cells.Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
Cells.Select
ActiveSheet.Paste
N = N + 1
Loop
Application.ScreenUpdating = True
End Sub
上述代码默认复制sheet1到新建表格中，通过修改代码中的相应名称可以改变欲复职的初始表格。在使用上述代码前，请做好原始数据备份。