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
本文共 232 字，大约阅读时间需要 1 分钟。
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
转载于:https://www.cnblogs.com/susuye/p/7169121.html