ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH云课堂-专业的职场技能充电站 Excel转在线管理系统,怎么做看这里 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 EH云课堂直播课程免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 506|回复: 21

[求助] 整理附件,重新发帖求助,求加快分割文件代码运行速度

[复制链接]

TA的精华主题

TA的得分主题

发表于 2019-2-11 10:46 | 显示全部楼层 |阅读模式
本帖最后由 bavinfeather 于 2019-2-11 14:12 编辑

大神,求助,
按钮代码运行没问题,但是速度奇慢
我做了两个按钮  内容一样,只有关键字和列数不一样

汇总是透视表,不动,只刷新
表名 含有data的 拆分,
需要分割的列是A列 和 M列



奇怪的是  在分割A列的时候 很快  不到30秒  但是M列 却要分割几小时。。。。。。。
不明白什么原因,如果是代码有问题应该都慢才对
附件太大了,不好意思 麻烦各位。。。。
qiuzhu.part6.rar (1.18 MB, 下载次数: 18)

TA的精华主题

TA的得分主题

发表于 2019-2-11 11:58 | 显示全部楼层
需要用到字典  需要详细说明要求

评分

参与人数 1鲜花 +2 收起 理由
bavinfeather + 2 优秀作品

查看全部评分

TA的精华主题

TA的得分主题

发表于 2019-2-11 13:32 来自手机 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2019-2-11 13:40 来自手机 | 显示全部楼层
必须用字典,口气太绝对了吧!虽然我没看附件也不至于“必须”的口气。

评分

参与人数 1鲜花 +2 收起 理由
bavinfeather + 2 感谢帮助

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-2-11 13:44 | 显示全部楼层
abc123281 发表于 2019-2-11 11:58
需要用到字典  需要详细说明要求

按钮文件内的 E 列 对应地区拆分的字典,F列 对应分公司拆分的字典。
拆分的是同一个文件夹下面的文件,上传的文件是d.xlsx
步骤:
1、点击 按地区拆分按钮, 使用E2-E8的关键字 拆分文件里面 包含“data”名字工作表的A列
2、点击 按分公司拆分按钮, 使用F2-F7的关键字 拆分文件里面 包含“data”名字工作表的M列
拆分完了之后,我会手动把拆分好了的文件移走,再继续拆分

实际使用中,
关键字所在列、名称都会变化,
所以为了分割不同的文件,我才在按钮文件中,以数字标记列数,专门用一列来写清楚关键字内容

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-2-11 13:47 | 显示全部楼层
朱荣兴 发表于 2019-2-11 13:32
拆分问题论坛多呢是,必须用字典

重点是因为我这个拆分只拆分名字包含“data”的工作表(有可能是3-5个,上传文件有3个)。不能使包括透视表的工作表受影响,所以在论坛找不到类似的。。。

我自己的方法,是根据关键字筛选,删除不需要的行,再另存为新文件。
在分割地区的时候很快
不知道为啥分割分公司就慢的出奇

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-2-11 17:01 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2019-2-11 17:48 | 显示全部楼层
duquancai 发表于 2019-2-11 13:40
必须用字典,口气太绝对了吧!虽然我没看附件也不至于“必须”的口气。

我看了附件,你说得正确,其实可能用SQL更方便

TA的精华主题

TA的得分主题

发表于 2019-2-11 17:51 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2019-2-11 21:18 来自手机 | 显示全部楼层
bavinfeather 发表于 2019-2-11 13:47
重点是因为我这个拆分只拆分名字包含“data”的工作表(有可能是3-5个,上传文件有3个)。不能使包括透视 ...

删除行的办法不慢才怪呢,字典多工作表循环呀,速度不是问题

评分

参与人数 1鲜花 +2 收起 理由
bavinfeather + 2

查看全部评分

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

最新热点上一条 /1 下一条

关注官方微信,高效办公专列,每天发车

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2019-10-24 02:15 , Processed in 1.105831 second(s), 37 queries , Gzip On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表