【Excel VBA】批量新建并重命名工作表

一、需求

根据sheet1所列名称，添加并重命名新的工作表。

二、实现

1.按照从前往后的顺序

Sub cre_ren_sheets()Dim num% /* 定义为integer*/num = Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))/* num是非空单元格数*/For i = 1 To numSheets.Add after:=ActiveSheetSheets(i + 1).SelectSheets(i + 1).Name = Sheet1.Cells(i, 1)Next iEnd Sub

2.按照从后往前的顺序

Sub cre_ren_sheets()Dim num%num = Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))For i = 1 To numSheets.AddSheets(1).Name = Sheet1.Cells(i, 1)/* Sheet1=Sheets(i+1)， sheet1随着新工作表的建立被往后挤，序列数随之增大*/Next iEnd Sub

三、注意事项

1.代码中的索引号和新建sheet默认命名不一定一致，代码按照顺序，工作簿只是名称。

2.工作表的命名要求