0下沉问题，两种解法为何速度相差极大？

jaxxcyh

1. Sub test()
   
2.     Dim startTime, endTime, myrow%
   
3.     startTime = Timer
   
4.     myrow = [a1].End(xlDown).Row
   
5.     For i = 1 To myrow                      '顺序扫描
   
6.         If Cells(i, 1) = 0 Then
   
7.             For j = i + 1 To myrow          '顺序扫描
   
8.                 If Cells(j, 1) <> 0 Then
   
9.                     tmp = Cells(j, 1)
   
10.                     Cells(j, 1) = Cells(i, 1)
    
11.                     Cells(i, 1) = tmp
    
12.                     Exit For
    
13.                 End If
    
14.             Next
    
15.         End If
    
16.     Next
    
17.     endTime = Timer
    
18.     MsgBox "程序运行时间：" & Format((endTime - startTime) * 1000, "0.000") & "毫秒"
    
19. End Sub
    
20. 
    
21. Sub test2()
    
22.     Dim startTime, endTime, myrow%
    
23.     startTime = Timer
    
24.     myrow = [d1].End(xlDown).Row
    
25.     For i = 1 To myrow                       '顺序扫描
    
26.         If Cells(i, 4) = 0 Then
    
27.             For j = myrow To i + 1 Step -1   '逆序扫描
    
28.                 If Cells(j, 4) <> 0 Then
    
29.                     tmp = Cells(j, 4)
    
30.                     Cells(j, 4) = Cells(i, 4)
    
31.                     Cells(i, 4) = tmp
    
32.                     Exit For
    
33.                 End If
    
34.             Next
    
35.         End If
    
36.     Next
    
37.     endTime = Timer
    
38.     MsgBox "程序运行时间：" & Format((endTime - startTime) * 1000, "0.000") & "毫秒"
    
39. End Sub
    

复制代码

我写了两种解法，第一种双循环是都是顺序扫描，第二种双循环时一个顺序一个逆序，程序运行时间竟然相差极大，不知道什么原因。
我想明白以上两种解法时间相差过大的原因，所以讨论的重点不在于是否使用数组来加快单元格的处理速度。

jaxxcyh

附件在此.....................

jaxxcyh

方法一用了400多毫秒，方法二用了20毫秒

shiruiqiang

因为两列数据中，0在最后的较多，减少了判断次数

jaxxcyh

shiruiqiang 发表于 2024-8-20 17:59
因为两列数据中，0在最后的较多，减少了判断次数

就是把0均匀分散好像也这样。末尾一堆0是我前面测试后留下的。

shiruiqiang

第一种方法次数是15015，第二种是130

shiruiqiang

jaxxcyh

shiruiqiang 发表于 2024-8-20 18:07

跟数据有关？那你再试试0均匀分散后的测试情况

jaxxcyh

我自己认为，这是不是就有点像修公路，第一种情况两个施工队都从一头修，第二种情况是两个施工队分别从两头开工，所以会快点？

jaxxcyh

但有点疑惑的是，两个循环变量的扫描范围好像也没差太大啊？
for i=1 to n,  for j=i+1 to n
for i=1 to n,  for j=n to i+1 step -1