[已解决]请老师帮忙，提高筛选速度。先有的代码在数据量较大的情况下，计算太慢了。

屈臣氏VBA · 发表于 2016-7-8 21:57

本帖最后由屈臣氏VBA 于 2016-7-8 22:00 编辑

请老师帮忙，提高筛选速度。先有的代码在数据量较大的情况下，计算太慢了。

砂海 · 发表于 2016-7-8 23:31

解决办法是数组
...
j = Cells(65536, 4).End(xlUp).Row + 1

dim 数据源 , 计算结果

数据源 = thisworkbook.sheets("sheet1").range('A1:Z"& j)

...
计算结果 = ...
thisworkbook.sheets("sheet1").range("d26").resize(数据行数,8)=计算结果 '''
...

zjdh · 发表于 2016-7-9 10:29

筛选最新登记数据.rar (13.17 KB, 下载次数: 2)

屈臣氏VBA · 发表于 2016-7-9 21:21

zjdh 发表于 2016-7-9 10:29

筛选最新登记数据.rar (15.27 KB, 下载次数: 2)

zjdh · 发表于 2016-7-11 09:24

筛选最新登记数据.rar (14.48 KB, 下载次数: 9)

iphone9 · 发表于 2016-7-11 11:14

zjdh 发表于 2016-7-11 09:24

老师，刚看了下你帮楼主写的代码，这也是我正需要的。我试着修改位置总是报错。

我的sheet1和sheet2的数据标题都在第7行。

zjdh · 发表于 2016-7-11 16:24

iphone9 发表于 2016-7-11 11:14
老师，刚看了下你帮楼主写的代码，这也是我正需要的。我试着修改位置总是报错。

我的sheet1和sheet2的 ...

你不上附件，无法帮你。

有你才幸福 · 发表于 2016-8-2 16:31

zjdh 发表于 2016-7-11 09:24

老师帮忙看看怎么弄
http://www.excelpx.com/thread-423115-1-1.html

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