Excel中如何快速删除空白行，把如下代码复制到ThisWorkBook里面就行

Private Sub Workbook_Open()
Dim rRow As Long
Dim Lrow As Long
Dim i As Long
rRow = Sheet1.UsedRange.Row
Lrow = rRow + Sheet1.UsedRange.Count - 1
For i = Lrow To rRow Step -1              '注意这里是倒着删除了，如果顺着删的话Excel中有可能漏掉
    If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then    'COUNTA函数功能是返回参数列表中非空值的单元格个数
       Rows(i).Delete
End If
Next
End Sub