VBA指定工作表并批量复制

问题：VBA如何实现指定工作表并批量复制

答案：可通过窗体控件实现。具体操作如下：

1：新建命令按钮

2：创建用户窗体，增加复合框，在工作表中输入以下代码：

Private Sub CommandButton1_Click()
For Each sh In Worksheets
UserForm1.ComboBox1.AddItem (sh.Name)
Next
UserForm1.Show
End Sub

此代码可实现指定需要复制的工作表

3：返回用户窗体，增加命令按钮，在命令按钮总输入以下代码：

Private Sub CommandButton1_Click()
On Error GoTo 1000
nnn = UserForm1.ComboBox1.Value
MsgBox nnn & "被选中"
num = InputBox("请输入复制工作表数量")
ysnum = Sheets.Count
Do While Sheets.Count < num + ysnum
Sheets(nnn).Copy after:=Sheets(Sheets.Count)
Loop
1000:
End Sub
此代码可实现所需复制的工作表数量