利用Excel批量创建多个工作表并命名

给大量的工作表添加目录和返回目录请参考文章:给工作表批量创建目录和返回目录

有时候我们需要批量创建多个工作表。比如我们要创建名为“中国”,“美国”,“英国”……“朝鲜”共计22个工作表,如下图,此时仅有一个名为“中国”的工作表,还有剩下的20个表需要创建。 利用Excel批量创建多个工作表并命名 

如果手工一个一个创建然后改名字很麻烦,今天我们利用vba开快速创建。
我们只需要新建模块,然后插入下面的代码就可以了。

Sub country()
Dim a As Integer             
a = 2                               
Set st = Worksheets("中国")      
Do While st.Cells(a, "B") <> ""   
On Error Resume Next            
If Worksheets(st.Cells(a, "B").Value) Is Nothing Then
Worksheets.Add after:=Worksheets(Worksheets.Count)     
ActiveSheet.Name = st.Cells(a, "B").Value            
End If
a = a + 1   
Loop
End Sub

然后在名为“中国的工作表中”,插入表单控件,也就是图中的“按钮1”,将按钮链接到模块中的宏(country)中就可以了。插入表单控件的方法为。“开发工具”>“插入”>第一个按钮就是了。如下图所示:  

利用Excel批量创建多个工作表并命名

将表单控件链接到刚才的宏的方法如下图,右键点击刚创建的表单控件,也就是下图中“按钮1”,然后选择“指定宏”。

利用Excel批量创建多个工作表并命名

然后选择刚才添加的宏也就是宏“country”,就可以了。如下图:

利用Excel批量创建多个工作表并命名

最后点击“中国”工作表中的按钮,程序就运行了,就生成了所需的20个工作表。

最终效果如下图所示

利用Excel批量创建多个工作表并命名

下面隐藏的内容有本文中还未运行的excel文件,并且vba中有详细的代码注释,有需要的可以下载来看看学习。

此处内容需要购买后查看,请付费后查看

支付0.1元查看


 

未经允许不得转载:飞鹰图表 » 利用Excel批量创建多个工作表并命名
分享到:

评论抢沙发

评论前必须登录!