VBA - 删除第一单元格为空的所有行

'2015/04/02 ADD By Maouizayoi


Option Explicit


Sub DeleteOneRow_IDColumnIsEmpty()


    Dim rng As Range


    For Each rng In Intersect(ActiveSheet.UsedRange, Columns("A"))
    
        If rng.Value = "" Then
            rng.EntireRow.Delete
        ElseIf rng.Value = "End" Then
            Exit For
        Else
            ' Loop Next Row
        End If
    
    Next


End Sub