删除给定模式后面的行

Question

有一个Excel文件，其偶数行中的值，而奇数行都是空的。我想删除所有没有值的行，即奇数行。如何在Excel中执行此操作？感谢。

Answer 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