批量新建工作表的方法

　　作用可以理解为批量新建工作表，命名为A列的内容。

　　Option Explicit
　　Sub 批量新建工作表
　　Dim i As Integer
　　Dim sh As Worksheet
　　Dim sName As String
　　Dim sYuan As String
　　sYuan = ActiveSheet.Name
　　'第一行为标题，所以从第二行开始，如果无标题应该i=1
　　For i = 2 To Worksheets(sYuan).Range("A1").CurrentRegion.Rows.Count
　　sName = Worksheets(sYuan).Range("A" & i).Value
　　'判断工作表是否存在，如果不存在就新建
　　On Error Resume Next
　　Set sh = Worksheets(sName) '如果工作表不存在，报错并返回非零值给Err.Number
　　If Err.Number <> 0 Then
　　Set sh = Worksheets.Add(, Worksheets(Worksheets.Count))
　　sh.Name = sName
　　End If
　　Next i
　　Worksheets(sYuan).Select
　　End Sub
效果图

　　如果要是要做一个月的考勤表这种，可以批量生成工作表，多选工作表状态支持一起粘贴咯。