[已解决]提高VBA循环语句的运行速度？

崇拜杨利伟

Dim A, B, C As Integer
B = 14
For C = 1 To 60
For A = 1 To 100000
If Sheets("②Count Table").Cells(A + 4, 4) <> "" Then

Sheets("②Count Table").Cells(A + 4, B) = Sheets("②Count Table").Cells(A + 4, B - 1) '将DB计数的值赋予到现场计数
Sheets("②Count Table").Cells(A + 4, B) = Sheets("②Count Table").Cells(A + 4, B - 1) _
                                             + Sheets("②Count Table").Cells(A + 4, B + 1) - Sheets("②Count Table").Cells(A + 4, B + 3) End If
Next A
B = B + 5
Next C '现场计数=DB计数+采集遗漏-采集多余 A循环行 B循环列

这段代码在excel2007中运行速度非常慢，请朋友帮忙改下吧，达到同样效果就行。

最佳答案

月排行榜 / 总排行榜

mxg825

2011-11-22 10:42

1. Sub MXG825()
   
2. Dim A, B, C As Integer
   
3. B = 14
   
4. ARR = Sheets("②Count Table").UsedRange
   
5. For C = 1 To 60
   
6. For A = 5 To UBound(ARR)
   
7. If ARR(A, 4) <> "" Then
   
8.    ARR(A, B) = ARR(A, B - 1)  '将DB计数的值赋予到现场计数
   
9.    ARR(A, B) = ARR(A, B - 1) + ARR(A, B + 1) - ARR(A, B + 3)
   
10. End If
    
11. Next A
    
12. B = B + 5
    
13. Next C '现场计数=DB计数+采集遗漏-采集多余 A循环行 B循环列
    
14. Sheets("②Count Table").Cells.ClearContents '清空工作表数据
    
15. Sheets("②Count Table").Range("A1").Resize(UBound(ARR), UBound(ARR, 2)) = ARR '把数组导入到工作表
    
16. End Sub
    

复制代码

跳转到最佳答案楼层

上清宫主

换数组吧。这样整是太太慢了

崇拜杨利伟

如何换数组呢？麻烦朋友指点下？

mxg825

1. Sub MXG825()
   
2. Dim A, B, C As Integer
   
3. B = 14
   
4. ARR = Sheets("②Count Table").UsedRange
   
5. For C = 1 To 60
   
6. For A = 5 To UBound(ARR)
   
7. If ARR(A, 4) <> "" Then
   
8.    ARR(A, B) = ARR(A, B - 1)  '将DB计数的值赋予到现场计数
   
9.    ARR(A, B) = ARR(A, B - 1) + ARR(A, B + 1) - ARR(A, B + 3)
   
10. End If
    
11. Next A
    
12. B = B + 5
    
13. Next C '现场计数=DB计数+采集遗漏-采集多余 A循环行 B循环列
    
14. Sheets("②Count Table").Cells.ClearContents '清空工作表数据
    
15. Sheets("②Count Table").Range("A1").Resize(UBound(ARR), UBound(ARR, 2)) = ARR '把数组导入到工作表
    
16. End Sub
    

复制代码

崇拜杨利伟

非常感谢4楼的朋友，能告诉我们第14行代码的含义吗？谢谢了

mxg825

崇拜杨利伟 发表于 2011-11-22 11:14
非常感谢4楼的朋友，能告诉我们第14行代码的含义吗？谢谢了

把数组 导到工作表！

崇拜杨利伟

谢谢朋友了。

第13行代码一定要用吗？不用是不是会快写呢？

崇拜杨利伟

谢谢朋友了。

第14行代码一定要用吗？不用是不是会快写呢？上面写错了不是13行。