按照给定模式删除行

【问题标题】：delete rows following a given pattern按照给定模式删除行
【发布时间】：2016-12-31 14:33:32
【问题描述】：

有一个 Excel 文件，其中偶数行有值，而奇数行都是空的。我想删除所有那些没有值的行，即奇数行。如何在 Excel 中做到这一点？谢谢。

【问题讨论】：

选择 A 列和 B 列并在 A 列上排序将在这种情况下产生您想要的结果。
嗨，eshwar，非常感谢。

【解决方案1】：

这应该做你想做的：

Sub RowKiller()
    Dim i As Long, N As Long
    N = Cells(Rows.Count, 1).End(xlUp).Row - 1

    For i = N To 1 Step -2
        Cells(i, 1).EntireRow.Delete
    Next i
End Sub

【讨论】：