VBA指定工作表并批量复制

最新推荐文章于 2024-08-13 08:39:15 发布

阿拉丁点灯

最新推荐文章于 2024-08-13 08:39:15 发布

阅读量2.7k

点赞数

文章标签： vba excel

本文链接：https://blog.csdn.net/thonbotric/article/details/123381387

版权

本文介绍了如何使用VBA在Excel中实现指定工作表的批量复制。首先，通过创建命令按钮和用户窗体，将所有工作表名称加载到复合框中供选择。然后，用户输入复制的数量，VBA会按照指定数量复制选定的工作表。这个教程对于需要大量复制工作表的用户非常实用。

摘要由CSDN通过智能技术生成

问题：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
此代码可实现所需复制的工作表数量