请教一下各位大神如何在同一工作簿内批量
在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")。Activ...全部
在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到新建表格中，通过修改代码中的相应名称可以改变欲复职的初始表格。
在使用上述代码前，请做好原始数据备份。
『如果我的回答对您有帮助，请点击下面的“有用”，谢谢，您的采纳是对我莫大的支持。』。收起
