批量插入sheet表,并按顺序命名

来源:互联网 发布:软件定制骗局 编辑:程序博客网 时间:2024/05/22 15:12
有时候在使用excel时需要批量插入sheet表,并按照要求进行命名,这种情况下,我们可采取控件编程的方式:
 
批量插入sheet表,并按顺序命名




如上图中,要建立25个sheet,命名分为为a1-a25,这样我们可以用控件中的按钮,并且在按钮中输入以下代码:
For i = 1 To 22
Worksheets.Add
Next
 
这样就生成22个sheet,加上默认的3个共25个
如需要统一修改名称,则可输入以下代码:
For i = 1 To 25
Sheets(i).Name = Cells(i, 1)
next

其结果如下所示:


批量插入sheet表,并按顺序命名
0 0
原创粉丝点击