同时对多个表格按某一列拆分为不同的工作簿

LMY123 · 发表于 2018-5-8 08:47

多表同时拆分

陆地鱼仙人掌 · 发表于 2018-5-8 22:12

lsc900707 发表于 2018-5-7 21:44
Sub test()
Application.ScreenUpdating = False
Set d = CreateObject("Scripting.Dictionary") ...

感谢，学习了，真可以拆分的，非常感谢

陆地鱼仙人掌 · 发表于 2018-5-8 22:13

abc123281 发表于 2018-5-7 23:06
上传附件来看

解决了，公司上不了外网，手打代码的时候打错了几个。非常感谢

陆地鱼仙人掌 · 发表于 2018-5-13 21:19

abc123281 发表于 2018-5-7 23:06
上传附件来看

大神你好，如果我想把拆分出来的文件放在和源数据同一个文件夹下，且新工作薄名字命名方式为：源数据表名字+“--”+地区。比如北京地区的文件命名为“地区KPI--北京”。要怎么修改？

abc123281 · 发表于 2018-5-13 21:56

按地区拆分abc123.rar (47.96 KB, 下载次数: 94)

frymonkey · 发表于 2018-10-29 14:35

lsc900707 发表于 2018-5-7 21:44
Sub test()
Application.ScreenUpdating = False
Set d = CreateObject("Scripting.Dictionary") ...

大神如果我的表头只占用了一行单元格，这个代码要怎么改？？

lsc900707 · 发表于 2018-10-29 15:05

frymonkey 发表于 2018-10-29 14:35
大神如果我的表头只占用了一行单元格，这个代码要怎么改？？

For i = 3 To UBound(arA) 改为 For i = 2 To UBound(arA)

ximubo · 发表于 2019-1-23 11:00

本帖最后由 ximubo 于 2019-1-23 11:11 编辑

abc123281 发表于 2018-5-13 21:56

请问我这个表也是第一二行是合并单元格表头，用您这个代码出不来，能麻烦帮忙看看吗？

abc123281 · 发表于 2019-1-23 11:07

需要上传你的附件来查看并修改代码

ximubo · 发表于 2019-1-23 11:11

本帖最后由 ximubo 于 2019-1-24 10:21 编辑

abc123281 发表于 2019-1-23 11:07
需要上传你的附件来查看并修改代码

用的是您上一帖“按地区拆分abc123” 压缩件里面代码（因为工作业务保密需要，我的表原数据改了一下，请见谅）

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

[求助] 同时对多个表格按某一列拆分为不同的工作簿