[已解决]优化代码

青城山苦丁茶

还是 给个模拟数据和你想实现的那个功能块，再由大家的提供思路，从中找出优化的要好点

jkczfpb

吕?布 发表于 2011-12-29 11:46
试试这样呢
Sub tt()
    For i = 1 To UBound(niV)

你更夸张，循环每一个量，并且用该量循环对比所有的因数，这个循环次数是多少了？想都不敢想

吕?布

当然，因为没有数据，所以代码很大一部分是猜测做的

青城山苦丁茶

Filter等是很耗时的，在某些情况下可能远慢于循环判断

jkczfpb

吕?布 发表于 2011-12-29 13:23
当然，因为没有数据，所以代码很大一部分是猜测做的

我用到了两种方法，一种是数组分离，一种是工作表函数，最后选择了数组分离，你用的是自定义函数，函数中镶嵌了逐个循环比较，这样的方式代表着循环次数无限增加，为什么速度确快了？

jkczfpb

青城山苦丁茶 发表于 2011-12-29 13:29
Filter等是很耗时的，在某些情况下可能远慢于循环判断

那为什么工作表数组函数也慢呢？不能用COUNTIF 函数，它不能对18位数的身份证进行计数

香川群子

青城山苦丁茶 发表于 2011-12-29 13:29
Filter等是很耗时的，在某些情况下可能远慢于循环判断

没错。

单纯的循环，不要说5万次，就是500万次，也是用不了多长时间的。


而如果你使用某些Excel自带功能的话，从代码上看，是很简洁，一次性得到结果了。

但是，实际上那些功能，也还是在后台进行着不断地循环比对……

换汤不换药，你是自欺欺人罢了。



…………

所以，把你的目的、算法公开，让别人帮助你整体改换算法思路，才是正解。


否则，只允许别人看你指定的几句代码，是没有用的。


呵呵。

Select

jkczfpb版主，能上传下你的附件吗？（如果需要，用别的字符替换掉真实数据）

深深的感受不到高手的讨论什么{:311:}

吕?布

快与慢也许不是楼主想到的那样，如果你全部知道原因，便不会到这里来求解
我只敢说据我的理解：
Filter虽然只做了一次，但这一次就很花时间，他要遍历整个数组(虽然你没做，但电脑自动做)，我想到的是发现有重复的就不再循环

leolee82

偷偷围观下各位高手...