如何根据所选列拆分工作表成为多个工作簿

zjl19860613 · 发表于 2014-11-17 18:38

拆分工作表为多个工作簿.rar (647.83 KB, 下载次数: 73)    年度做的人工汇总数据，都要分别发给各个部门，前期在论坛里面找了相关的帖子，如何拆分工作表成为多个工作簿，如附件。目前在用的一个版本用起来不方便，虽然能拆分成多个工作簿，但是拆分的数据的行数却被保留了，如所有的部门的数据汇总总表有3万行，拆分出的所有表都有三万行（参见-附件内），实际上有的部门很小，只有3个人，12个月的数据单独一张工作簿也很大，和1万行的部门一样大。用起来不方便。因此想求助实现以下需求：
   1、方便选择字段拆分，如可以选择列，这个拆分成工作表的方法有，能否在拆分成工作簿的功能中实现；（参见：自动分表较完美版本、原始数据库）
   2、导出版本为EXCEL2010版本，且拆分后的数据只有选择的属性的行数，而非要保留原有总表的行数，同时使用的宏具有方便编辑的特点使用起来更方便些。（参见：原始数据库，但此表宏函数较为复杂，无法直接应用到其他EXCEL汇总表）
   期待VBA高手解决此问题。

zjl19860613 · 发表于 2014-11-18 18:20

有没有高手可以指导下？？？

飘零也美 · 发表于 2014-11-21 17:07

Sub 一个工作薄分解成多个工作簿()
Dim sht As Worksheet
Application.ScreenUpdating = False
ipath = ThisWorkbook.Path & "\"
   For Each sht In Sheets
      sht.Copy
      ActiveWorkbook.SaveAs ipath & sht.Name & ".xls"
      ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
MsgBox "当前工作簿下的全部工作表已经分解完毕！", vbInformation, "提示"
End Sub

飘零也美 · 发表于 2014-11-21 17:08

将此代码复件到模块里执行看看呢。

飘零也美 · 发表于 2014-11-21 17:11

打开看看。我处于摸索状态。只能看着人家的进行稍稍修改。

小耳朵“ · 发表于 2016-12-27 10:56

5楼太强大了，实际工作中经常遇到这种问题，非常感谢

		自动登录	找回密码
密码			免费注册

[求助] 如何根据所选列拆分工作表成为多个工作簿