用宏快速删除Excel中空白行

时　间:2011-11-23 00:00:00
作　者:殷小宝   ID：11152  城市：芜湖
摘　要:Excel中用宏快速删除空行

正　文:

看了乐乐的《VBA快速删除Excel中空白行》一文，对其中的两句代码不太理解：rRow = Sheet1.UsedRange.Row;Lrow = rRow + eet1.UsedRange.Count – 1。
 
我在几年前作了一个宏，也能快速删除空行，我这个宏较容易理解，拿出来与大家分享一下，不过声明一下，很简单，希望得到大家的帮助，拜托了。
 
Sub 删除空行()  
    Dim a As Integer
    endR = Range("A65536").End(xlUp).Row  
    'endC = Cells.SpecialCells(xlLastCell).Column  
    For i = endR To 1 Step -1
        If Application.CountA(Rows(i)) = 0 Then  
            a = i
            Do Until Application.CountA(Rows(i)) <> 0
                i = i - 1
            Loop
            Rows(CStr(a) & ":" & CStr(i + 1)).Select  
            Selection.Delete Shift:=xlUp  
        End If  
    Next i  
End Sub