标签：count work cti 大小 批量 name sub cells 工作表
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
标签：count work cti 大小 批量 name sub cells 工作表
原文地址：http://www.cnblogs.com/susuye/p/7169121.html
