如何将vba代码优化，提高运行效率！

2163kjh · 发表于 2020-7-27 14:26

优化代码.zip (1.65 MB, 下载次数: 65)
表格里面有许多七拼八凑的代码，本人初学vba，对数组字典不怎么会用，就退而求其次，代码和公式混搭，主要是用代码循环逐行提取数据用的，所以有好多公式，造成运行速度慢，如果取消公式自动运算，输出的数值又不对，会发生错误，主要是把里面的一个宏给改进下就好了，让运行速度快点，宏的名字叫 “运行”，这个代码调用单元格太多，太慢了，运行200行要40多秒！要命了，工作太慢了，效率太低！不胜感激！

2163kjh · 发表于 2020-7-28 10:16

说明：
   1、sheets（“数据表”）=小型数据库（注意数据表中都是函数填充的，宏代码第一步先将数据表的函数公式复制粘贴转换为数值再调取速度明显提升），sheets（“运行”）表中也有许多函数，因为vba代码不熟悉所有只能采用这种投机取巧的办法来写代码，初学者没办法的办法了也是！
   2、逐行从sheets（“数据表”）第三行起开始到最后一行，调取每行数值，然后这些数值填到sheets（“运行”），经过函数公式运算，再逐行复制到sheets（“预览”）中，这样子就存在一个问题循环中不断操作单元格，造成运行太慢了
   3、sheets（“运行”）中的函数，主要有Hlookup Vlookup if 函数，如果把运行工作表中的函数转换为vba代码运行，直接存储到sheets（“预览”）工作表，那样速度应该有质变。
   4、但是水平有限啊，做不到，原来上传表格时表达也不清楚，附件里面表太乱，造成大家读取困难，现更改如上，望大家帮忙给修改下，小弟不胜感激。

opel-wong · 发表于 2020-7-27 14:33

人才啊！我看着就头大了，你还能写出来那么多，佩服！

丸子不是小孩子 · 发表于 2020-7-27 14:39

看到头都大

2163kjh · 发表于 2020-7-27 14:44

vba数组和字典写起来太麻烦了，这个单纯数组和字典来说，我粗浅的看了下“大蟒蛇”比他好用啊，啥时候微软更新下vba，让我的脑袋不至于这么绕！

水和米 · 发表于 2020-7-27 14:47

千头万续，无从下手

fanyoulin · 发表于 2020-7-27 14:56

我测试你代码的效率：
1、第一次运行用了18秒（不含保存文件，这一步我放弃了），第二次15秒，大致在15-20秒之间浮动；
2、删除所有其他无关的表，只保留三个关联的表，运行时间只要7-8秒，这说明其他表可能有关联的函数会拖后腿；
3、把三个表的所有函数全部转换为值（用值粘贴），再运行代码就只要3-4秒；

所以我感觉代码速度其实还行，拖后腿的主要是里面的函数太多；

lvying · 发表于 2020-7-27 16:48

数据量太大，看着太乱，没耐心看
要理清需求、思路、数据逻辑关系，这样别人才能帮到你

2163kjh · 发表于 2020-7-27 16:51

其他的表格其实也是有用的，日常工作搞得这么多表格，我吧sheet（“数据表”）的函数公式复制粘贴为数值，在运行一下就少了好多时间，现在大约8秒了，原来要40秒，感谢老铁提供宝贵建议，还有别的办法吗，在线等兄弟们支持。

私信q_924154615 · 发表于 2020-7-27 16:51

不喜欢看别人的代码修改，没个人的思路不一样，而且我看到有10多个模块，每个模块都一大堆过程，看的头痛

cp121ok · 发表于 2020-7-27 17:09

看了一眼脑壳疼

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

[求助] 如何将vba代码优化，提高运行效率！