求助：清除零行可以用数组吗？

jiaxun

为了清除没有数据的零行，我用了自动筛选的方法，但运行不快，请问：能用数组提高效率吗？谢谢！

windimi007

请测试！

1. Sub test()
   
2.     Dim ar, br(1 To 10000, 1 To 6)
   
3.     Dim i As Long, j As Long
   
4.     Application.ScreenUpdating = False
   
5.     ar = Cells(1, 1).CurrentRegion
   
6.     For i = 2 To UBound(ar)
   
7.         If ar(i, 2) <> 0 Or ar(i, 3) <> 0 Or ar(i, 4) <> 0 Or ar(i, 5) <> 0 Then
   
8.             j = j + 1
   
9.             br(j, 1) = ar(i, 1)
   
10.             br(j, 2) = ar(i, 2)
    
11.             br(j, 3) = ar(i, 3)
    
12.             br(j, 4) = ar(i, 4)
    
13.             br(j, 5) = ar(i, 5)
    
14.             br(j, 6) = ar(i, 6)
    
15.         End If
    
16.     Next i
    
17.     With Cells(2, 1)
    
18.         .Resize(Rows.Count - 1, 6).Clear
    
19.         With .Resize(j, 6)
    
20.             .Value = br
    
21.             .Borders.LineStyle = xlContinuous
    
22.         End With
    
23.     End With
    
24.     Application.ScreenUpdating = True
    
25. End Sub

复制代码

jiaxun

多谢！！已经达到想要的效果了，运行很快！{:soso_e113:}