Sub 批量增加工作表()
Dim i As Integer
For i = 1 To 10
‘每次都在最后一张表后面增加
Worksheets.Add after:=Sheets(Worksheets.Count), Count:=1
ActiveSheet.Name = Sheet1.Range("a" & i).Text ‘提取单元格文本用作新工作表名
Next
End Sub
原文：https://www.cnblogs.com/queqiaoshui/p/10265216.html