此章节分享2个常用的代码，需求均来自与工作。

实际情况

因为一个部门有很多项目或者是科目，每个项目或者科目都需要建立一张表格来组趋势分析的时候，每次都需要手动新加表格、修改表名2个步骤，如果是20 个项目呢（我们公司基本都是几十个项目），手动增加效率就太低了。

自动命名新建表代码

Sub 自动建表() Excel.Application.DisplayAlerts = False arr = Selection For i = 1 To UBound(arr, 1) Sheets.Add(after:=Sheets(Sheets.Count)).Name = arr(i, 1) Next Excel.Application.DisplayAlerts = True End Sub

注意：此功能只能选择列上的单元格建表哈（竖着的）；新建表格名称请勿与已有表格名称重复

代码作用图示

vba按编号新建表（VBA常用代码5自动命名新建表）(1)

自动建表

自动命名复制表代码

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

代码作用图示

vba按编号新建表（VBA常用代码5自动命名新建表）(2)

自动命名复制表

,