此章節分享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
自動命名複制表
,更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!