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
打赏

觉得本站还不错就打赏一下吧!

支付宝扫一扫打赏

微信扫一扫打赏

本站所有内容均来自于互联网自动采集,如无意侵犯了您的权利,请您发送邮件到admin@chinaetl.com.cn联系管理员删除。
ChinaETL » excel批量创建sheet