vba按编号新建表VBA常用代码5自动命名新建表

导读此章节分享2个常用的代码，需求均来自与工作。实际情况因为一个部门有很多项目或者是科目，每个项目或者科目都需要建立一张表格来组趋势分析的时候，每次都需要手动新....

此章节分享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) NextExcel.Application.DisplayAlerts = TrueEnd Sub

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

代码作用图示

自动建表

自动命名复制表代码

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) -----此处可以在新表类填写内容 NextExcel.Application.DisplayAlerts = TrueEnd Sub

代码作用图示

自动命名复制表