多表按部门自动拆分为多工作簿问题

lizhipei78

ykcbf1100 发表于 2024-6-13 19:05
三年前的求助，我自己来完成一下。

5秒完成，是我的电脑配置比以前高了吧，运行时间少了。

我不喜欢Union，这个大大影响速度。针对你这个题，如果是我，会首先匹配好每个工作表部门所在行列，直接用筛选大法，筛选不等于字典（部门）后直接删除，感觉这样子速度能提升不少，特别是数据较大的情况下。

ykcbf1100

lizhipei78 发表于 2024-6-13 19:51
我不喜欢Union，这个大大影响速度。针对你这个题，如果是我，会首先匹配好每个工作表部门所在行列，直接 ...

呵呵，我明天试一下你的方法。

lizhipei78

ykcbf1100 发表于 2024-6-13 20:19
呵呵，我明天试一下你的方法。

对你来说来太简单了，我无聊顺手借你的代码写了一个
多表按部门原格式拆分为多工作簿.rar (61.2 KB, 下载次数: 20)

2024-6-13 22:11 上传

点击文件名下载附件

ykcbf1100

lizhipei78 发表于 2024-6-13 22:11
对你来说来太简单了，我无聊顺手借你的代码写了一个

谢谢哈。。。

leeson7502

建议：
要保持格式，可以采用复制工作簿，删除不需要的部门。
1、新建一个拆分工作簿，用来写代码。
2、打开源工作簿，循环所有工作表，读取所有部门到字典dic,关闭工作簿
3、循环dic的key,复制源工作簿为key命名的工作簿，打开key工作簿，循环所有工作表，删除部门名称不为key的部门，保存关闭key工作簿。

ykcbf1100

lizhipei78 发表于 2024-6-13 19:51
我不喜欢Union，这个大大影响速度。针对你这个题，如果是我，会首先匹配好每个工作表部门所在行列，直接 ...

我今天试了一下，用Union法和筛选法相比，就这个附件而言，所用时间差不多的。不过，如果数据多的话不知道情况如何。

ykcbf1100

leeson7502 发表于 2024-6-14 09:45
建议：
要保持格式，可以采用复制工作簿，删除不需要的部门。
1、新建一个拆分工作簿，用来写代码。

谢谢回复，言之有理。

lizhipei78

ykcbf1100 发表于 2024-6-14 09:54
我今天试了一下，用Union法和筛选法相比，就这个附件而言，所用时间差不多的。不过，如果数据多的话不知 ...

数据大当然我这个更快速，毕竟不用循环，5万行以上应该就见较大的差异了，当然了平时我们根本不需要用到那么多的数据，所以都是差不多的，我测试过Union这个是真的慢，其实一行一行删除跟Union相比，速度差不多的，代码还更简洁。

ykcbf1100

lizhipei78 发表于 2024-6-14 10:04
数据大当然我这个更快速，毕竟不用循环，5万行以上应该就见较大的差异了，当然了平时我们根本不需要用到 ...

数据多没测试。你说的也有道理。
到时看情况使用吧。