拆分工作表成为工作簿

炉中煤

求助各位大侠：
      现在有一个原始工作簿，里面有多个工作表 ，现在想用VBA代码把工作表拆分成独立的工作簿，要求是：工作表“甲”和工作表“甲返利”分在一个新建的 工作簿里的两个工作表，工作簿名称用甲的单位编码102301作为名称 ，同一个工作簿里的工作表的名称为“销售明细”和“返利明细”，以此类推，工作表“乙”和工作表“乙返利”拆分在一个新建工作簿里，工作簿名称为201113，工作簿里面的工作表名称为为“销售明细”和“返利明细”，做到如附件的效果。另外还有两种情况，一种是只有原始工作簿中只有销售明细工作表的，没有对应的返利工作表，要把销售明细工作表单独拆分成一个工作簿，工作簿的名字还是单位编码；另外一种情况是只有返利工作表，没有销售明细表的，要求直接忽略返利工作表，就是不拆分成工作簿。如果通过VBA代码实现，还请各位老师赐教，谢谢！ 拆分2.rar (42.21 KB, 下载次数: 2)

2015-6-10 20:27 上传

点击文件名下载附件