- A+
所属分类：办公技巧
VBA自动命名复制表代码！
因为一个部门有很多项目或者是科目，每个项目或者科目都需要建立一张表格来组趋势分析的时候，每次都需要手动新加表格、修改表名2个步骤，如果是20+个项目呢（我们公司基本都是几十个项目），手动增加效率就太低了。
自动命名新建表代码
Sub 自动建表()
Excel.Application.DisplayAlerts = False
arr = Selection
For i = 1 To UBound(arr, 1)
ActiveSheet.Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = arr(i, 1) '-----此处可以在新表类填写内容
Next
Excel.Application.DisplayAlerts = True
End Sub
代码作用图示
学习资料见知识星球。
以上就是今天要分享的技巧，你学会了吗？若有什么问题，欢迎在下方留言。
快来试试吧，小琥 my21ke007。获取 1000个免费 Excel模板福利！
更多技巧， www.excelbook.cn
欢迎 加入 零售创新 知识星球，知识星球主要以数据分析、报告分享、数据工具讨论为主；
你将获得：
1、价值上万元的专业的PPT报告模板。
2、专业案例分析和解读笔记。
3、实用的Excel、Word、PPT技巧。
4、VIP讨论群，共享资源。
5、优惠的会员商品。
6、一次付费只需99元，即可下载本站文章涉及的文件和软件。
- 我的微信
-
- 我的知识星球
-
