sub 批量新建指定名称的工作表()

Dim i As Integer

For i = 2 To 10    ‘根据实际情况修改i大小

Worksheets.Add after:=Worksheets(ThisWorkbook.Worksheets.Count)

ActiveSheet.Name = Sheets(1).Cells(1, i)

Next

End Sub

[VBA]批量新建指定名称的工作表