tft每日頭條

 > 科技

 > vba按編号新建表

vba按編号新建表

科技 更新时间:2025-01-25 23:18:55

此章節分享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

自動命名複制表

,

更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!

查看全部

相关科技资讯推荐

热门科技资讯推荐

网友关注

Copyright 2023-2025 - www.tftnews.com All Rights Reserved