快速新建多个工作表
如何把EXCEL表中每一行单独另存为一个EXCEL文件？
如何把EXCEL表中每一行单独另存为一个EXCEL文件？
功能：用当前工作薄每条记录创建一个新的工作薄，每个新建工作薄以第一行为标题行，第二行为记录，以A列记录为工作薄名称自动保存。友情提示：
1、如何把下面的代码添加到VBA环境：点击“开发工具”－“visualBasic”进入vba编辑环境，在左侧的“工程”树里点击鼠标右键，选择“插入”－“模块”，然后把下面的代码粘贴到右侧的编辑区里。2、如何使用：可创建热键调用，也可点击“开发工具”－“visualBasic”进入vba编辑环境，在该过程代码里点击一下，然后点击工具栏上的运行按钮（是一个实心三角形，鼠标放上去停留一会，有提示“运行子过程/...”）。
SubSplitExl()Application.DisplayAlertsFalse新建的文档存在时，不发送警示，覆盖式保存DimlngRs,lngCs,cx,strEndCl$DimtopR(),EveryR(),oExlAsObject,oWkAsWorkbookDimstrPath$strPath(Replace(Cells(1,lngCs).Address,$,),1,
)topRRange(A1:strEndCl1)数据标题行Forcx2TolngRsEveryRRange(AFormat(cx):strEndClFormat(cx))把每行记录放入数组SetoWk(1).Range(A1:strEndCl1)topR把标题行放入另建的工作薄.Range(A2:strEndCl2)EveryR把单个记录放入同一另建的工作薄(1,1).xls以每行A列记录为工作薄名称.CloseEndWithNextSetoWkNothingSetoExlNothingErasetopR:EraseEveryRApplication.DisplayAlertsTrueEndSub
如何将同一工作簿中多个相同格式的工作表复制在同一个工作表中？
excel 中将一个工作表批量复制出很多个相同的工作表的方法可以采用下面的方法：
1、要复制的表是连在一起的就好办，在表名的地方，先点击最左边要复制的表，然后按住shift键，点击最右边要复制的表，然后在表名的地方单击右键，选择“移动或复制工作表”，其中工作簿的下拉框中可选择“新工作簿”或现有打开的工作簿，确定复制的位置，最下面可勾上“建立副本”（如果不勾，将是移动表格），确定即可。
2、可以录制一个宏，然后在需要的时候执行这个宏就可以了。
3、编制单独的程序来实现，可以通过vb,vc或其它的高级语言通过编程来实现，会更文件地来完成这样的功能。