[已解决]删除空行或只有空格的行,很好用，就是速度慢，哪位老师能帮帮提下速度，谢谢了！

yjwdjfqb

删除空行或只有空格的行,很好用，就是速度慢，哪位老师能帮帮提下速度，谢谢了！

删除空行或只有空格的行,很好用，就是速度慢，哪位老师能帮帮提下速度，谢谢了！.rar (5.49 KB, 下载次数: 16)

2014-3-19 23:59 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

grf1973

2014-3-20 10:50

1. Sub 删除空行或只有空格的行()
   
2.      Application.ScreenUpdating = False
   
3.      Dim sc As Range
   
4.      Set sc = Rows(65536)
   
5.      Dim arr
   
6.      Dim i&, j&, n&, LastCell$
   
7.      LastCell = Split(ActiveSheet.UsedRange.Address, ":")(1)
   
8.      arr = Range("A1:" & LastCell)
   
9.      For i = 1 To UBound(arr)
   
10.         n = 0
    
11.         For j = 1 To UBound(arr, 2)
    
12.             If Len(Trim(arr(i, j))) > 0 Then n = 1: Exit For
    
13.         Next
    
14.         If n = 0 Then Set sc = Union(sc, Rows(i))
    
15.      Next i
    
16.      sc.Delete
    
17.      Application.ScreenUpdating = True
    
18. End Sub
    
19. 
    

复制代码

因为数据量不大，看不出区别。自己拿大数据测试一下吧。

跳转到最佳答案楼层

yjwdjfqb

请大师们帮帮忙，这个功能可能大家也会用到的哟！

fffox

yjwdjfqb 发表于 2014-3-20 08:30
请大师们帮帮忙，这个功能可能大家也会用到的哟！

不知道这样会不会快一点？请测试：

1. Sub 删除空行()    Dim Rng As Range, Rngs As Range, cell As Range
   
2.     Dim i%, Num%, irow, iAdd$
   
3.     Application.ScreenUpdating = False
   
4.     Set Rng = ActiveSheet.UsedRange
   
5.     If Rng.Count > 1 Then iAdd = Mid(Rng.Address, InStr(Rng.Address, ":") + 1, 10)
   
6.     Set cell = Range("a1", iAdd)
   
7.     For i = 1 To cell.Rows.Count
   
8.         iAdd = ""
   
9.         Num = WorksheetFunction.CountBlank(Intersect(cell, Rows(i)))
   
10.         If Num = cell.Columns.Count Then
    
11.             iAdd = iAdd & i & ","
    
12.             If Rngs Is Nothing Then
    
13.                 Set Rngs = Cells(i, 1)
    
14.             Else
    
15.                 Set Rngs = Union(Rngs, Cells(i, 1))
    
16.             End If
    
17.         End If
    
18.     Next
    
19.     If Not Rngs Is Nothing Then Rngs.EntireRow.Delete
    
20.     Application.ScreenUpdating = True
    
21. End Sub
    

复制代码

yjwdjfqb

fffox 发表于 2014-3-20 09:11
不知道这样会不会快一点？请测试：

感谢了朋友，但运行错误6

grf1973

1. Sub 删除空行或只有空格的行()
   
2.      Application.ScreenUpdating = False
   
3.      Dim sc As Range
   
4.      Set sc = Rows(65536)
   
5.      Dim arr
   
6.      Dim i&, j&, n&, LastCell$
   
7.      LastCell = Split(ActiveSheet.UsedRange.Address, ":")(1)
   
8.      arr = Range("A1:" & LastCell)
   
9.      For i = 1 To UBound(arr)
   
10.         n = 0
    
11.         For j = 1 To UBound(arr, 2)
    
12.             If Len(Trim(arr(i, j))) > 0 Then n = 1: Exit For
    
13.         Next
    
14.         If n = 0 Then Set sc = Union(sc, Rows(i))
    
15.      Next i
    
16.      sc.Delete
    
17.      Application.ScreenUpdating = True
    
18. End Sub
    
19. 
    

复制代码

因为数据量不大，看不出区别。自己拿大数据测试一下吧。