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

abc123281 · 发表于 2019-1-23 12:24

你好可以的已作了修改请测试

两个子表123.rar (75.4 KB, 下载次数: 36)

ximubo · 发表于 2019-1-23 14:28

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

abc123281 发表于 2019-1-23 12:24
你好可以的已作了修改请测试

试了可以拆，大神，膜拜！非常谢谢

另外好奇想请问，为什么我的表也是两行的表头，也是表头有合并单元格，感觉格式是一样的，为啥用你的原代码拆不出来

abc123281 · 发表于 2019-1-23 14:40

你好代码只是针对附件而言你的附件和他人的附件是不一样的没有万能的代码

zpy2 · 发表于 2019-1-23 14:45

ximubo 发表于 2019-1-23 14:28
试了可以拆，大神，膜拜！非常谢谢

另外好奇想请问，为什么我的表也是两行的表头，也是表头有合并单 ...

这样拆，格式一变，代码就要变，拆成这么大的表。。。。

ximubo · 发表于 2019-1-23 15:50

zpy2 发表于 2019-1-23 14:45
这样拆，格式一变，代码就要变，拆成这么大的表。。。。

还有其它简便方法？

zpy2 · 发表于 2019-1-23 17:26

ximubo 发表于 2019-1-23 15:50
还有其它简便方法？

hemeiyu12138 · 发表于 2019-3-9 19:41

lsc900707 发表于 2018-10-29 15:05
For i = 3 To UBound(arA) 改为 For i = 2 To UBound(arA)

大神，这个修改成 for i=2 to ubound(arA)显示下标越界怎么弄呢

feixiangye · 发表于 2019-3-19 09:41

abc123281 发表于 2019-1-23 14:40
你好代码只是针对附件而言你的附件和他人的附件是不一样的没有万能的代码

大神您好，请教一下您写的代码中字典 set d()()两个括号的写法第一次遇到，感觉好神奇，百思不得其解含义,请您帮忙解惑一下这种写法是何意思,谢谢！
Set d(arr(i, 1))(ws.Name) =

abc123281 · 发表于 2019-3-19 10:29

你好
这个是二级字典嵌套想要深入了解其含义你得先从字典基础学习

玉华 · 发表于 2019-6-5 12:10

本帖最后由玉华于 2019-6-5 13:35 编辑

请问我的表格是前后子表表头行数不一样，这个代码怎么修改呢？新手刚接触vba很茫然，附件已经上传，数据因为保密删除了，只留下表格框架，能麻烦大神帮忙看下吗？谢谢！

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

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