excel表格怎么单独保存工作表 如何把EXCEL表中每一行单独另存为一个EXCEL文件?

[更新]
·
·
分类:互联网
1664 阅读

excel表格怎么单独保存工作表

如何把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.首先打开EXCEL表格,例如需要将成绩表这个SHEET页单独保存为一个文件稿。
2.然后选择这个SHEET表格,右键单击此表格,点击移动或复制工作表进入。
3.然后在弹出的移动或复制工作表里,在工作薄里面选项新工作薄,然后在建立副本前面打勾。
4.设置完毕之后,点击确定,这样就可以将这个SHEET单独保存为一个文件稿了。