vba按编号新建表(VBA常用代码5自动命名新建表)
此章节分享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
注意:此功能只能选择列上的单元格建表哈(竖着的);新建表格名称请勿与已有表格名称重复
代码作用图示
自动建表
自动命名复制表代码
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
自动命名复制表
,免责声明:本文仅代表文章作者的个人观点,与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺,请读者仅作参考,并自行核实相关内容。文章投诉邮箱:anhduc.ph@yahoo.com