批量新建工作表

百度的话能找到那个通过数据透视表做的，只是步骤有些多，，有些新手用着有点麻烦，，，

找到了一段不错的VBA代码，分享大家。

作用可以理解为批量新建工作表，命名为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

效果图

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