提速帮助

pkkgong

老师们，目前运行我这个宏速度太慢了，请老师帮忙修改一下提个速。谢谢。双击sheet2工作表5000行就用了9秒，太慢了。

不知道为什么

不太能明白里面工作表函数的意思。或者你可以把你的需求阐述下。

你的代码 可能影响速度的因素：
1、变量申明不科学
2、读写单元格用数组来替换
3、试试工作表函数用vba代码替换。

pkkgong

不知道为什么 发表于 2018-8-16 14:54
不太能明白里面工作表函数的意思。或者你可以把你的需求阐述下。

你的代码 可能影响速度的因素：

我表中是意思是这样的，
第一是想确认表中2是产品在表6中是存在且是大于0的
第二：表2的产品在表6中是存在的，那么把表2中存在的产品进行排序（如1、2、3……），不存在的产品在参加排序
因学是初学者，很用VBA中的东西不太会用，还请老师帮助

iwangyi

提速
第一，用数组比直接调用单元格快。
第二，能不用遍历就不用，能减少遍历就减少遍历。
第三，注意释放资源如Object.cLOse，Set myObject=NOthing

不知道为什么

pkkgong 发表于 2018-8-16 15:17
我表中是意思是这样的，
第一是想确认表中2是产品在表6中是存在且是大于0的
第二：表2的产品在表6中是 ...

看你的代码 和你需求好像完全不符啊

iwangyi

影响速度还有一因素就是变量声明，混合性变量大于纯文本大于数字型变量。

pkkgong

不知道为什么 发表于 2018-8-16 15:30
看你的代码 和你需求好像完全不符啊

x = WorksheetFunction.SumIf(Sheet6.Range("b2:b" & i), Cells(i, 1), Sheet6.Range("c2:c" & i))
If x > 0 Then
这是用来确认产品在表6是否存在
Cells(i, 5) = Application.WorksheetFunction.CountIf(Range(Cells(1, 1), Cells(i, 1)), Cells(i, 1))
Else
Cells(i, 5) = ""
End If
Cells(i, 4) = Application.WorksheetFunction.CountIf(Range(Cells(1, 5), Cells(i, 5)), Cells(i, 5))
这个就是为了排序

我不太会写，所以让你觉得不对，还清帮忙。

pkkgong

iwangyi 发表于 2018-8-16 15:36
影响速度还有一因素就是变量声明，混合性变量大于纯文本大于数字型变量。

你好，老师请问用什么变量好呢

iwangyi

根据你数据特点定义即可。养成声明变量的良好习惯。