批量新建工作表的方法 (批量新建工作表 wps)

百度的话能找到那个通过数据*表做的，只是步骤有些多，，有些新手用着有点麻烦，找到了一段不错的VBA代码，分享大家。　　作用可以理解为批量新建工作表，命名为A列的内容。

整理分享批量新建工作表的方法 (批量新建工作表 wps)，希望有所帮助，仅作参考，欢迎阅读内容。

内容相关其他词:批量新建工作表簿并命名,批量新建工作表 wps,批量新建工作表怎么做,批量新建工作表怎么做,批量新建工作表 wps,批量新建工作表 wps,批量新建工作表簿并命名,批量新建工作表 wps,内容如对您有帮助，希望把内容链接给更多的朋友！

　　OptionExplicit　　Sub批量新建工作表　　DimiAsInteger　　DimshAsWorksheet　　DimsNameAsString　　DimsYuanAsString　　sYuan=ActiveSheet.Name　　'第一行为标题，所以从第二行开始，如果无标题应该i=1　　Fori=2ToWorksheets(sYuan).Range("A1").CurrentRegion.Rows.Count　　sName=Worksheets(sYuan).Range("A"&i).Value　　'判断工作表是否存在，如果不存在就新建　　OnErrorResumeNext　　Setsh=Worksheets(sName)'如果工作表不存在，报错并返回非零值给Err.Number　　IfErr.Number<>0Then　　Setsh=Worksheets.Add(,Worksheets(Worksheets.Count))　　sh.Name=sName　　EndIf　　Nexti　　Worksheets(sYuan).Select　　EndSub效果图

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