请问下列代码运行很慢，是怎么回事呢？求大神解惑，谢谢

cdfcs

请问下列代码运行很慢，是怎么回事呢？求大神解惑，谢谢
Sub 去空值()
Application.ScreenUpdating = False
Dim rng As Range, a%
Set rng = ActiveSheet.Range("a10000").End(xlUp)
   
    a = 3
    Do Until a < rng.Row
            If Application.WorksheetFunction.Sum(Range("f" & CStr(a) & " : " & "o" & CStr(a))) = 0 Then '假如F列至O列之和等于零，则删除该行
                Rows(a).Delete
                a = a - 1               ‘删除一行后少了一行，则减1
            Else
              
                a = a + 1
            End If
            
    Loop
   
Application.ScreenUpdating = True
End Sub

zopey

1、从后往前 循环 ，删除行操作 不会影响前面的 行号。
2、也可以 一次性删除 多行。数组 可以提速。

liulang0808

1. Sub 去空值()
   
2. Application.ScreenUpdating = False
   
3. Dim rng As Range, a%
   
4. Dim rn As Range
   
5. Set rng = ActiveSheet.Range("a10000").End(xlUp)
   
6.    
   
7.     a = 3
   
8.     Do Until a < rng.Row
   
9.             If Application.WorksheetFunction.Sum(Range("f" & CStr(a) & " : " & "o" & CStr(a))) = 0 Then '假如F列至O列之和等于零，则删除该行
   
10.                 If rn Is Nothing Then
    
11.                     Set rn = Cells(a, 1)
    
12.                 Else
    
13.                     Set rn = Union(rn, Cells(a, 1))
    
14.                 End If
    
15. 
    
16.             End If
    
17.             a = a + 1
    
18.             
    
19.     Loop
    
20.     If Not rn Is Nothing Then rn.EntireRow.EntireRow.Delete
    
21. Application.ScreenUpdating = True
    
22. End Sub
    

复制代码

zhenghui13

没有附件不好判断，猜测你要删除某些行。可以用倒序进行操作:for i=cells(65536,1).end(xlup).row to 3 step -1
     if ......then
        rows(i).delete  
     end if
next i

cdfcs

zhenghui13 发表于 2018-6-21 17:35
没有附件不好判断，猜测你要删除某些行。可以用倒序进行操作:for i=cells(65536,1).end(xlup).row to 3 ste ...

谢谢，果然快多了

cdfcs

liulang0808 发表于 2018-6-21 17:34

谢谢，果然快多了

cdfcs

zopey 发表于 2018-6-21 17:33
1、从后往前 循环 ，删除行操作 不会影响前面的 行号。
2、也可以 一次性删除 多行。数组 可以提速。

谢谢，确实是这样