excel表格拆分表格

  • 格式:docx
  • 大小:24.97 KB
  • 文档页数:5

竭诚为您提供优质文档/双击可除excel表格拆分表格
篇一:excel拆分工作表
excel拆分工作表脚本:privatesub拆分工作表
()dimshtasworksheetdimmybookasworkbooksetmybook=act iveworkbookForeachshtinmybook.sheetssht.copy (excel表格拆分表
格)activeworkbook.saveasFilename:=mybook.path将工作簿另存为excel默认格式activeworkbook.closenext msgbox"文件已经被拆分完毕!"endsub
方法/步骤
1.打开需要编辑的excel文档。

如图所示,工作簿下方有很多工作表。

现在需要将这些工作表单独拆分开成一个个工作簿。

需要在工具-宏-安全性:设置为低等级。

2.右键任意一个工作表标签,在弹出的下拉列表中选择查看代码。

即弹出代码窗口。

如下图所示。

3.点击菜单插入-模块在弹出的模块对话框中输入以下
代码:privatesub拆分工作表()dimshtasworksheet
dimmybookasworkbooksetmybook=activeworkbookForeachs htinmybook.sheetssht.copy
activeworkbook.saveasFilename:=mybook.path将工作簿另存为excel默认格式activeworkbook.closenext msgbox"文件已经被拆分完毕!"endsub
4.单击运行-运行子过程
|窗体几秒过后弹出提示窗口“文件已被拆分完毕”如下图所示
5.返回excel工作簿文件所在路径查看如下图所示原先工作簿中的工作表已经成为单独的工作簿了!不信可以对照查看图中的修改日期。

篇二:如何将一份excel文件所有工作表单独拆分开来如何将一份excel文件所有工作表单独拆分开来
首先打开该excel文件,键盘快捷键:“alt+F11”
会自动弹出Visualbasic:
然后双击一个工作表
把一下代码复制进去,代码如下:
privatesub分拆工作表()
dimshtasworksheet
dimmybookasworkbook
setmybook=activeworkbook
Foreachshtinmybook.sheets
sht.copy
activeworkbook.saveasFilename:=mybook.path将工作簿另存为excel默认格式
activeworkbook.close
next
msgbox"文件已经被分拆完毕!"
endsub
复制完之后点工具栏上的运行就ok了!
篇三:excel拆分表格代码
sub拆分工作表()
application.screenupdating=FalsedimrngasRange,arr() edRange.select
selection.sortkey1:=Range("a2"),order1:=xlascending ,header:=xlguess,ordercustom:=1,matchcase:=False,or ientation:=xltoptobottom,sortmethod:=xlpinyin,datao ption1:=xlsortnormal
endrow=Range("a65536").end(xlup).RowRedimarr(2,0)。