VBA自动命名复制表代码！

admin • • 办公技巧

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

代码作用图示

v2-ae37e2083c11bd397d48254ed283a02a_b.webp_

学习资料见知识星球。

以上就是今天要分享的技巧，你学会了吗？若有什么问题，欢迎在下方留言。

快来试试吧，小琥 my21ke007。获取 1000个免费 Excel模板福利​​​​！

更多技巧， www.excelbook.cn

欢迎 加入 零售创新 知识星球，知识星球主要以数据分析、报告分享、数据工具讨论为主；

2022021703525891-231

你将获得：

1、价值上万元的专业的PPT报告模板。

2、专业案例分析和解读笔记。

3、实用的Excel、Word、PPT技巧。

4、VIP讨论群，共享资源。

5、优惠的会员商品。

6、一次付费只需99元，即可下载本站文章涉及的文件和软件。

文章版权声明 1、本网站名称：Excelbook
2、本站永久网址：http://www.excelbook.cn
3、本网站的文章部分内容可能来源于网络，仅供大家学习与参考，如有侵权，请联系站长王小琥进行删除处理。
4、本站一切资源不代表本站立场，并不代表本站赞同其观点和对其真实性负责。
5、本站一律禁止以任何方式发布或转载任何违法的相关信息，访客发现请向站长举报。
6、本站资源大多存储在云盘，如发现链接失效，请联系我们我们会第一时间更新。

THE END
分享
二维码
< <上一篇
下一篇>>