excel批量创建sheet

Sub SheetAdd()
Dim i As Long
'定义一个长整型变量
Sheets.Add After:=Sheets(Sheets.Count), Count:=Sheets(1).Range("A" & Rows.Count).End(xlUp).Row - 1
'在现有Sheet后新建工作表，工作表数量等于Sheet(1)表A列非空单元格行数
For i = 2 To Sheets.Count
	Sheets(i).Name = Sheets(1).Cells(i, 1).Value
'工作表名称设置为Sheet(1)A列单元格值
Next
MsgBox "创建工作表完成！"
End Sub