удалять строки по заданному шаблону

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