根据某列字段拆分多个工作簿

乐乐2006201505 · 发表于 2017-12-11 13:15

不难，自己做，或者上传附件。说明要求。

乐乐2006201505 · 发表于 2017-12-11 17:57

hahaha123111 发表于 2017-12-11 12:01
@乐乐2006201505 老师，如果将代码改为在该文件中生成多个子表，改动是不是很方便？

把下面这段修改为添加工作表即可。
With Workbooks.Add(xlWBATWorksheet)
         rng.Copy .Sheets(1).[a1]
         t(i).Copy .Sheets(1).[a7]                      '这句中A列数字为几，则拆分后的数据在A列第几行，需要比前面红色注明的数字大1。
         .SaveAs Filename:=ThisWorkbook.Path & "\" & k(i) & ".xls"
         .Close
      End With

hahaha123111 · 发表于 2017-12-11 21:05

@乐乐2006201505 老师，请帮忙看下附件，想要将总表中按照C列进行拆分成多个子表，后续再总表中添加新的字段之后，运行宏即可覆盖子表信息。
本人刚刚开始在论坛学习，还请老师能否推荐个学习书籍，谢谢

szqhb · 发表于 2017-12-11 21:35

很好。收藏之。

乐乐2006201505 · 发表于 2017-12-11 23:04

hahaha123111 发表于 2017-12-11 21:05
@乐乐2006201505 老师，请帮忙看下附件，想要将总表中按照C列进行拆分成多个子表，后续再总表中添加新的字 ...

看看是这样吗？

clinzli · 发表于 2018-1-25 16:07

棋行天下黄发表于 2016-6-21 23:46
On Error Resume Next

Dim wb As Workbook, arr, rng As Range, d As Object, K, t, sh As Worksheet, ...

怎样把工作表的名称sheet1更换成关键名称？谢谢

乐乐2006201505 · 发表于 2018-1-26 09:22

上传附件，给你看看。

element519 · 发表于 2018-3-2 13:16

本帖最后由 element519 于 2018-3-3 17:44 编辑

@乐乐2006201505 老师，帮忙看看我的问题。谢谢。
要求：

1. 按AG列中，不同的LBU Contact Person 拆分成不同worksheet，有几个不同的联系人就拆出几个单独表格；

2. 保留第一行表头，新生成的表格按原表格的格式；

3. 保留summary这个透视表；

4. 拆出的worksheet加上LBU Contact Person来命名，比如：201801 Total report - delia-dandan.xu

附件是总表和分表，帮忙看看能否实现，工作中需要拆分出多个表格，您的帮忙可以帮我节省大量时间，谢谢。

拆分.zip (36.27 KB, 下载次数: 28)

stellababy · 发表于 2018-5-31 23:31

乐乐2006201505 发表于 2016-12-5 20:51
Sub 保留表头拆分数据为若干新工作簿()
Dim arr, d As Object, k, t, i&, lc%, rng As Range, c%
...

老师，您的回复太有用了，希望现在咨询您不算晚。基于这个代码，如果我同时要保持拆分表的表尾一致，该如何调整代码呢？

jiminyanyan · 发表于 2018-7-17 19:46

做个记号．．．．．

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

[求助] 根据某列字段拆分多个工作簿