本例介绍在excel中如何訇咀喃谆将一个工作表拆分成行数一样的多个工作表。如下Excel表,总共有120多行数据,如何将以50行数据为一个工作表进行拆分?
工具/原料
Excel
方法/步骤
1、点击开发工具→宏→输入宏名称→点击创建
2、输入如下代码:Dimr,c,i,WJhangshu,WJshu巳呀屋饔,btAsLongr=Range("A"&Rows.Count).End烫喇霰嘴(xlUp).Rowb=InputBox("请输入分表行数")IfIsNumeric(b)ThenWJhangshu=Int(b)ElseMsgBox"输入错误",vbOKOnly,"错误"EndEndIfc=Cells(1,Columns.Count).End(xlToLeft).Columnbt=1'标题行数'WJhangshu=50'每个文件的行数WJshu=IIf(r-btModWJhangshu,Int((r-bt)/WJhangshu),Int((r-bt)/WJhangshu)+1)Fori=0ToWJshuWorkbooks.AddApplication.DisplayAlerts=FalseActiveWorkbook.SaveAsFilename:=ThisWorkbook.Path&"\"&Format(i,String(Len(WJshu),0))&".xlsx"Application.DisplayAlerts=TrueThisWorkbook.ActiveSheet.Range("A1").Resize(bt,c).CopyActiveSheet.Range("A1")ThisWorkbook.ActiveSheet.Range("A"&bt+i*WJhangshu+1).Resize(WJhangshu,c).Copy_ActiveSheet.Range("A"&bt+1)ActiveWorkbook.CloseTrueNext
3、点击运行出现对话框,输入50并确定,在Excel文件对应的路径下会生成分表文件。
4、分表结果