大量数据进行统计时如何提高统计效率

lxlaner

各位大侠：
             附件是我的一份订单表，里面有3张表
总订单是我与服装厂签订的采购衣服的数量，衣服由货号、颜色、尺码三个条件决定；
每次发货记录是我们仓库提供给我的收货数据。
我现在需要同过这两份数据得出最终表的数据，即还有多少货厂家没发给我们。
由于表的格式很复杂，我的做法是，
1、先将总订单转化成总单点转换表
2、再将每次发货记录转换成每次发货转换表
3、将每次发货转换表中的数据提取到总订单转换表中
4、根据总订单的转换表生成最终表。
总订单与最终表的格式是相同的。

上面的过程效率非常的低下，随着发货数量的增加现在生成一次要半小时，我都要疯了。

各位大虾们帮我看看怎么提高效率呢。

帮帮我吧！！


定单.rar (172.96 KB, 下载次数: 57)

2012-2-29 14:14 上传

点击文件名下载附件

doitbest

用数组读入读出就快了

lxlaner

可惜的是我不会呀

doitbest

所有代码都要优化吗？还是其中某一个？

lxlaner

1. Sub 提取发货量()
   
2. Dim i As Integer
   
3. Dim x As Integer
   
4. Dim Erow As Long
   
5. Dim ErowChiMa As Integer
   
6. TotalOrderToList.Range("G2:G65536").ClearContents
   
7. Sheet5.Range("E2:E65536").ClearContents
   
8. 
   
9. For i = 2 To TotalOrderToList.Cells(65536, 1).End(xlUp).Row
   
10. 
    
11. 
    
12. 
    
13. For x = 2 To Sheet5.Cells(65536, 1).End(xlUp).Row
    
14. 
    
15. ' If Sheet5.Cells(x, 5).Value = "" Then
    
16. 
    
17. 
    
18. 
    
19. If TotalOrderToList.Cells(i, 1).Value = Sheet5.Cells(x, 1).Value And Left(TotalOrderToList.Cells(i, 4).Value, 3) = Left(Sheet5.Cells(x, 2).Value, 3) And _
    
20. TotalOrderToList.Cells(i, 5).Value = Sheet5.Cells(x, 3).Value Then
    
21. 
    
22. TotalOrderToList.Cells(i, 7).Value = TotalOrderToList.Cells(i, 7).Value - Sheet5.Cells(x, 4).Value
    
23. 
    
24. Sheet5.Rows(x & ":" & x).Delete Shift:=xlUp
    
25. 
    
26. x = x - 1
    
27. 
    
28. End If
    
29. 
    
30. 'End If
    
31. 
    
32. Next x
    
33. Next i
    
34. 
    
35. End Sub

复制代码

就这段代码执行的速度最慢，就这个地方最需要优化，谢谢大侠了

liucqa

lxlaner 发表于 2012-2-29 16:48
就这段代码执行的速度最慢，就这个地方最需要优化，谢谢大侠了

嗯，要改成数组操作才行，即使别的地方不优化，只优化这一个过程，最多几秒～十几秒程序全部都可以结束。

liucqa

我看了你以前的帖子，一个能写出加载宏和图片处理的老手，不应该不会数组呀？range转数组操作是VBA的基本操作技巧。

你是他本人吗？

lxlaner

说来惭愧，我是没系统性的学过VB/VBA，都是用到什么学什么。现在知道不行了

lxlaner

1. Sub 提取发货量()
   
2. 
   
3. Dim zong() As Variant
   
4. 
   
5. Dim fen() As Variant
   
6. 
   
7. Dim Zong_Row As Long
   
8. 
   
9. Dim Fen_Row As Long
   
10. 
    
11. TotalOrderToList.Range("G2:G65536").ClearContents
    
12. Sheet5.Range("E2:E65536").ClearContents
    
13. 
    
14. Zong_Row = TotalOrderToList.Cells(65536, 1).End(xlUp).Row
    
15. 
    
16. Fen_Row = Sheet5.Cells(65536, 1).End(xlUp).Row
    
17. Dim i As Integer
    
18. Dim x As Integer
    
19. 'Dim Erow As Long
    
20. 'Dim ErowChiMa As Integer
    
21. zong() = TotalOrderToList.Range("A2:G" & Zong_Row).Value
    
22. fen() = Sheet5.Range("A2:G" & Fen_Row).Value
    
23. For i = 1 To Zong_Row - 1
    
24. For x = 1 To Fen_Row - 1
    
25. 
    
26. If zong(i, 1) = fen(x, 1) And Left(zong(i, 4), 3) = Left(fen(x, 2), 3) And zong(i, 5) = fen(x, 3) Then
    
27. 
    
28. zong(i, 7) = Int(zong(i, 7)) - Int(fen(x, 4))
    
29. TotalOrderToList.Range("G1").Value = 2
    
30. End If
    
31. 
    
32. Next x
    
33. Next i
    
34. 
    
35. TotalOrderToList.Range("A2:G65536").ClearContents
    
36. TotalOrderToList.Range("A2:G" & Zong_Row) = zong
    
37. 
    
38. End Sub

复制代码

经大侠的提醒，小学了下数组，果然效率提升惊人。谢谢！！

liucqa

lxlaner 发表于 2012-3-1 22:10
经大侠的提醒，小学了下数组，果然效率提升惊人。谢谢！！

SheetTotalOrder.Cells(i, 6 + x).Value <> ""

类似这样的语句用len判断会更快